Hi,

Trying to write a macro which finds the text "Job No" and if it has
colorindex = 37 then assigns the column number of "Job No" to the
variable m

Below isnt quite working:


Sub fi()

taz = Cells.Find(What:="Job No", After:=ActiveCell, LookIn:=xlFormulas
LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext
MatchCase:= _
False, SearchFormat:=False).Activate


If taz.Interior.ColorIndex = 37 Then
m = taz.Column
End If

End Su

--
T De Villier
-----------------------------------------------------------------------
T De Villiers's Profile: http://www.excelforum.com/member.php...fo&userid=2647
View this thread: http://www.excelforum.com/showthread.php?threadid=56599