Dim rng as Range
Dim rngCol as Long
Set rng = Range("2:2").Find(what:="Number", LookIn:=xlValues, _
lookat:=xlWhole, searchorder:=xlByColumns, MatchCase:=True)
If Not rng Is Nothing Then
rngcol = rng.Column
Rows("4").Columns("A" & rngcol).Interior.Color = RGB(221, 221, 221)
End if

I am not sure what you want to color. The above would color the cell in
the 4th row of the found column.

if you want to do the entire column

Columns(rngCol).Interior.Color = RGB(221,221,221)

--
Regards,
Tom Ogilvy


"Dan" wrote in message
...
With this piece of code, I'm wondering how to reference the resulting
column from the find information in the rows.columns bit below that,
normally I would just do .Columns("A:AN") or something similar, but I'm not
sure how to replace "AN" with a variable, rngcol. I'm also not sure what to
dim rng and rngcol as. Thanks for any help.

Set rng = Range("2:2").Find(what:="Number", LookIn:=xlValues, _
lookat:=xlWhole, searchorder:=xlByColumns, MatchCase:=True)
If Not rng Is Nothing Then rngcol = rng.Column
Rows("4").Columns("A:rngcol").Interior.Color = RGB(221, 221, 221)