Определить адрес видимого диапазона- Visual Basic(Бейсик)

iVisibleRange = ActiveWindow.VisibleRange.Address 
iVisibleRange = Excel.ActiveWindow.VisibleRange.Address 
iVisibleRange = Application.ActiveWindow.VisibleRange.Address 
 
MsgBox "Сейчас виден, в т.ч. и частично, диапазон : " & iVisibleRange