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)

Let me correct that
Rows("4").Columns("A" & rngcol).Interior.Color = RGB(221, 221, 221)

would be column A, rngcol - 1 rows below 4, which probably isn't what you
want. So,

I suspect you want to do the cell on row 4 at the rngcol location. That
would be

Cells(4,rngcol).Interior.Color = RGB(221, 221, 221)

--
Regards,
Tom Ogilvy


"Tom Ogilvy" wrote in message
...
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)

Thanks for the help. What I am looking to color, is the entire row, columns A through whatever column rngcol is.

Range("A4").Resize(1, rngcol).Interior.Color = RGB(221, 221, 221)

--
Regards,
Tom Ogilvy

"Dan" wrote in message
...
Thanks for the help. What I am looking to color, is the entire row,
columns A through whatever column rngcol is.