reading address of cell after Selection.find

[Guest]

I am using the the following code to find "-" in a spreadsheet;

Selection.Find(What:="-", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

How can I get the address of the cell selected by the find?

 

[Frank Kabel]

Hi Mel
try
Sub foo()
Dim rng As Range
Set rng = Selection.Find(What:="-", After:=ActiveCell,
LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False)
MsgBox rng.Address
End Sub

 

[Alan Beban]

Or simply (subject to word wrap):

Sub foo()
MsgBox Selection.Find(What:="-", After:=ActiveCell,
LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Address
End Sub

Alan Beban

 

[Guest]

Thanks allot for help