Cell Address

[Tyron]

This code does not get the selected address from excel to Powerpoint,
any ideas?


Sub CellAddress()

Dim XLApp As Excel.Application
Dim rngNewRange As Excel.Range

Set XLApp = GetObject(, "Excel.Application")

MsgBox XLApp.Selection.Address
End Sub