Bir rapor veya pano üzerinde çalışıyorsanız ve aktif olan hariç tüm "worksheet" leri gizlemek istiyorsanız aşağıdaki makro kodunu kullanabilirsiniz.

Sub Gizle() 
   Dim ws As Worksheet 
   For Each ws In ThisWorkbook.Worksheets 
   If ws.Name <> ActiveSheet.Name Then 
   ws.Visible = xlSheetHidden 
   Next ws 
End Sub