edit macro to mathc entire cell contents

[nis75p06]

I'm using the following macro:

Sub rename()
Dim c As Range
Set c = Range("B:B").Find(ActiveCell)
If c Is Nothing Then Exit Sub
ActiveCell = c.Offset(, -1)
End Sub

I need to edit it so that the find is for "match entire cell contents"

Thanks for the help!

-Tamara

[Jim Rech]

Check out the Find method in VB help. In particular look at the "LookAt"
parameter.

--
Jim
"nis75p06" <[email protected]> wrote in
message news:[email protected]...
>
> I'm using the following macro:
>
> Sub rename()
> Dim c As Range
> Set c = Range("B:B").Find(ActiveCell)
> If c Is Nothing Then Exit Sub
> ActiveCell = c.Offset(, -1)
> End Sub
>
> I need to edit it so that the find is for "match entire cell contents"
>
> Thanks for the help!
>
> -Tamara
>
>
> --
> nis75p06
> ------------------------------------------------------------------------
> nis75p06's Profile:
> http://www.excelforum.com/member.php...o&userid=26949
> View this thread: http://www.excelforum.com/showthread...hreadid=401697
>

[David Lloyd]

Tamara:

The fourth parameter of the Find method indicates whether to look at all or
part of the cell contents. For example:

Set c = Range("B:B").Find(ActiveCell,,,xlWhole)


--
David Lloyd
MCSD .NET
http://LemingtonConsulting.com

This response is supplied "as is" without any representations or warranties.


"nis75p06" <[email protected]> wrote in
message news:[email protected]...

I'm using the following macro:

Sub rename()
Dim c As Range
Set c = Range("B:B").Find(ActiveCell)
If c Is Nothing Then Exit Sub
ActiveCell = c.Offset(, -1)
End Sub

I need to edit it so that the find is for "match entire cell contents"

Thanks for the help!

-Tamara


--
nis75p06
------------------------------------------------------------------------
nis75p06's Profile:
http://www.excelforum.com/member.php...o&userid=26949
View this thread: http://www.excelforum.com/showthread...hreadid=401697