Range.Find method - Address meeting search criteria in r,c rather tha "A3" (say) format

Hi
I am trying to get to grips with Find / Findfirst Excel methods to use as function call in an application that I am developing. The prototype code to understand this (find) approach is gven below which does work and features within this forum.

However how can I get the address in r,c format rather than "A3" say. If I can get the corresponding row / col values as integers then I can develop the algorithm to do processing on the data in this specific cell (which will use iterative loops. Hence need for r,c.

Many thanks in anticipation

Code
Dim strSearch As String
Dim aCell As Range
Dim oSht As Worksheet

On Error GoTo Err

Set oSht = Sheets("All")

'lastRow = oSht.Range("A" & Rows.Count).End(xlUp).Row
LastCol = oSht.Range("A1:H1").End(xlUp).Column

strSearch = "In LEA care"

Set aCell = oSht.Range("A1:H1").Find(What:=strSearch, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

If Not aCell Is Nothing Then
MsgBox "Value Found in Cell " & aCell.Address


End If

Exit Sub
Err:
MsgBox Err.Description

/Code

Dim r as long, c as long

'your code

r = aCell.Row
c = aCell.Column
'aCell can be referenced as Cells(r,c)

Dim r as long, c as long

'your code

r = aCell.Row
c = aCell.Column
'aCell can be referenced as Cells(r,c)