Sub GoHome()
'''''''''''''''''''''''''''''''''''''''''''''''''''''
'   Make sure the active sheet is a worksheet,
'   then locate the active window's scroll row and
'   column, and activate that cell.
'''''''''''''''''''''''''''''''''''''''''''''''''''''
   Dim lngRow As Long
    Dim lngCol As Long
    
    If ActiveSheet.Type = xlWorksheet Then
        lngRow = ActiveWindow.ScrollRow
        lngCol = ActiveWindow.ScrollColumn
        Cells(lngRow, lngCol).Activate
    End If
End Sub