excel vba how to get a range's full address code example

Example: excel vba how to get a range's full address including sheet name

'VBA function to retrieve the full address of a range:

Function FullAddress(r As Range)
    With r
        FullAddress = "'" & .Parent.Name & "'!" & .Address
    End With
End Function

'--------------------------------------------------------------------

MsgBox FullAddress		'Displays: 'My Sheet'!$A$1:$Z$99