Sub ABCFoundCell()
Dim x As Range
Set x = Cells.Find(What:="ABC", _
After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, _
SearchFormat:=False)
MsgBox "the cell address is : " & x.Address
End Sub
>Subject: Re: $$Excel-Macros$$ How to get the address of a cell in VBA
>
>
>check the attachement
>
>Sub ABC()
>Dim I, J, K As Long
>Dim foundcell As Range
> Set foundcell = Sheets(1).Range("a1")
> Set foundcell = Sheets(1).Columns(1).Find(What:=10, After:=fo
