get active cell name in Excel

there's a part in my code that scans for
the strings in the cells of my worksheet.

this would look like this:

VB Code:

Do
 
'.... blah blah
 
Text1.Text = .Cells(i, j)
 
'.... blah blah
 
Loop

what I want to know:

how can I get the cell count or name or
whatever that is:

e.g. "A13" or "B16"

any ideas?

thx!

VB Code:

Private Sub CommandButton1_Click()
 
    With ActiveCell
        MsgBox "Cell " & Chr$(Asc("A") - 1 + .Column) & .Row & " has a value of " & .Value
    End With
    
    With Cells(1, 1)
        MsgBox "Cell " & Chr$(Asc("A") - 1 + .Column) & .Row & " has a value of " & .Value
    End With
    
End Sub