find cell in particular column

[R.VENKATARAMAN]

i have the same string(or number) in all the columns.
I want to find and activate the string or number in a particular column for
e.g only in column B.
ideas please

 

[Tom Ogilvy]

Dim rng as Range, rng1 as Range
Dim fAddr as String
with columns(2).Cells
set rng = .find("number")
if not rng is nothing then
fAddr = rng1.Address
Do
if rng1 is nothing then
set rng1 = rng
else
set rng1 = union(rng1,rng)
end if
set rng = .FindNext(rng)
Loop until rng.Address = fAddr
End with
if nt rng1 is nothing then
rng1.Select
End if

 

[R.VENKATARAMAN]

than you very much. shall use the sub

Dim rng as Range, rng1 as Range
Dim fAddr as String
with columns(2).Cells
set rng = .find("number")
if not rng is nothing then
fAddr = rng1.Address
Do
if rng1 is nothing then
set rng1 = rng
else
set rng1 = union(rng1,rng)
end if
set rng = .FindNext(rng)
Loop until rng.Address = fAddr
End with
if nt rng1 is nothing then
rng1.Select
End if