Hi joebbb,

This will put the cell address of a selected range into a message box (adapt to your own needs):

Option Explicit
Sub Macro1()

    Dim rngMyCell As Range
    
    For Each rngMyCell In Selection
        MsgBox rngMyCell.Address
    Next rngMyCell

End Sub
Regards,

Robert