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

--
Regards,
Tom Ogilvy


"R.VENKATARAMAN" <vram26@vsnl$$$.net> wrote in message
news:[email protected]...
> 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
>
>
>
>
>
>

[R.VENKATARAMAN]

than you very much. shall use the sub

Tom Ogilvy <[email protected]> wrote in message
news:[email protected]...
> 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
>
> --
> Regards,
> Tom Ogilvy
>
>
> "R.VENKATARAMAN" <vram26@vsnl$$$.net> wrote in message
> news:[email protected]...
> > 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
> >
> >
> >
> >
> >
> >
>
>