Application.ActiveSheet (Excel)

Returns an object that represents the active sheet (the sheet on top) in the active workbook or in the specified window or workbook. Returns Nothing if no sheet is active.

If you do not specify an object qualifier, this property returns the active sheet in the active workbook. If a workbook appears in more than one window, the ActiveSheet property may be different in different windows.

Dim wsActiveSheet As Worksheet
Set wsActiveSheet = ActiveSheet