IF you are using FIND then:

With Worksheets(1).Range("a1:a500")
Set c = .Find(2, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
MsgBox c.Row & "," & c.Column <== row & column you need
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address < firstAddress

End If
End With

HTH

(If not, post sample of your code)

"nmd030583" wrote:



Hello all,

I am working on a macro that will analyze all of my formulas on the
activesheet and when it finds a formula that meets it criteria it will
copy the formula and past it into another worksheet. The macro is
working accept for the fact that I can not get it to past the formula
where I want it to. I want it to past it into the same cell reference
in a different worksheet (i.e. cell C6 in sheet 3 to cell C6 in new
sheet.). Since the reference cells are unknown I can not hard code it.
Any help would be GREATLY appreciated.


NMD