Window.ActiveSheetView (Excel)

Returns an object that represents the view of the active sheet in the specified window.

Dim wsvwActiveSheetView As WorksheetView
Set wsvwActiveSheetView = ActiveWindow.ActiveSheetView