Несколько месяцев назад делал лично в 2007, но подзабыл.

Вот, накропал от скуки.  
Форум замер, выходной день.  
Public Sub HideAround()  
Dim Rb As Long, Cb As Integer, Re As Long, Ce As Integer  
With Selection  
If .Cells.Count = 1 Then Exit Sub  
Rb = .Cells(1).Row  
Cb = .Cells(1).Column  
Re = Rb + .Rows.Count  
Ce = Cb + .Columns.Count  
End With  
If Rb > 1 Then  
Rows(1 & ":" & Rb - 1).EntireRow.Hidden = True  
End If  
If Cb > 1 Then  
Range(Cells(1, 1), Cells(1, Cb - 1)).EntireColumn.Hidden = True  
End If  
Rows(Re & ":" & Rows.Count).EntireRow.Hidden = True  
Range(Cells(1, Ce), Cells(1, Columns.Count)).EntireColumn.Hidden = True  
End Sub