Re: Macro Commands

Giganews Newsgroups
Subject: Re: Macro Commands
Posted by:  DCSwearingen (DCSwearingen.29pi30_1150816503.1831@excelforum-nospam.com)
Date: Tue, 20 Jun 2006

Try this:
'------------------
Option Explicit
'------------------
Private Function FindLastCell()
Dim lCell As String
Range("A1").Select
lCell = ActiveCell.SpecialCells(xlLastCell).Address
FindLastCell = lCell
End Function
'------------------
Private Sub CondFormat()
Dim cFormat As String, cCell As String, tRange As String, c As Range
Dim lCell As String, lRow As Long, lCol As Long
lCell = FindLastCell
lRow = Range(lCell).Row
lCol = Range(lCell).Column
tRange = "$A$1:" & lCell
For Each c In Range(tRange)
cFormat = "=$G$" & c.Row & "=""W"""
c.FormatConditions.Add Type:=xlExpression, Formula1:=cFormat
c.FormatConditions(1).Font.ColorIndex = 2
c.FormatConditions(1).Interior.ColorIndex = 13
Next
tRange = Cells(lRow, 1).Address
tRange = "$A$1:" & tRange
For Each c In Range(tRange)
cFormat = "=$G$" & c.Row & "=""B"""
c.FormatConditions.Add Type:=xlExpression, Formula1:=cFormat
c.FormatConditions(2).Font.Bold = True
Next
End Su

--
DCSwearinge

Getting old, but love computers
-----------------------------------------------------------------------
DCSwearingen's Profile:http://www.excelforum.com/member.php?action=getinfo&userid=2150
View this thread:http://www.excelforum.com/showthread.php?threadid=55267

Replies

In response to

Macro Commands posted by DanH on Fri, 16 Jun 2006