Thats what I thought but its not doing anything. Below is
my entire code.


Dim Rng As Range
Dim Rng2 As Range
Dim Cell As Object
Dim Cell2 As Object
Dim FindRange
Dim FindRange2
On Error Resume Next

Set Rng = Sheets("WOW Reps").Range("A3:A3000")
Set Rng2 = Sheets("Followup Summary").Range("A7:A3000")

For Each Cell In Rng
FindRange = Workbooks("Completed Followup Detail
CSS.XLS").Sheets("WOW Reps").Range("A3:A3000").Find(Cell)
FindRange2 = Workbooks("Completed Followup Detail
CSS.XLS").Sheets("Followup Summary").Range("A7:A3000").Find
(FindRange)

Next


-----Original Message-----
Hi Todd

FindRange.Address

--
Best Regards
Leo Heuser

Followup to newsgroup only please.

"Todd Huttenstine"
skrev i en
meddelelse ...
Hey guys

Below is a code that looks in Range A3:A3000 and sets
FindRange = Cell1. How would I return the actual cell
address value of FindRange?


Dim Cell1 As Object
Dim FindRange

FindRange = Workbooks("Completed Followup Detail
CSS.XLS").Sheets("WOW Reps").Range("A3:A3000").Find
(Cell1)

Thanks
Todd Huttenstine


.