AddressLocal Property Example

Assume that this example was created using U.S. English language support and was then run in using German language support. The example displays the text shown in the comments.

Set mc = Worksheets(1).Cells(1, 1)
MsgBox mc.AddressLocal()                         ' $A$1
MsgBox mc.AddressLocal(RowAbsolute:=False)       ' $A1
MsgBox mc.AddressLocal(ReferenceStyle:=xlR1C1)   ' Z1S1
MsgBox mc.AddressLocal(ReferenceStyle:=xlR1C1, _
    RowAbsolute:=False, _
    ColumnAbsolute:=False, _
    RelativeTo:=Worksheets(1).Cells(3, 3))       ' Z(-2)S(-2)