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