Specific Sheets Very Hidden

[r_mundhra]

If anyone can help me with a Macro which would "very hide" ALL the sheets in a workbook which has "H" as the first letter in the Sheet Name field.
Thanks

[Paul_Hossler]

Try this




Option Explicit
Sub HideHs()
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
If Left(ws.CodeName, 1) = "H" Then ws.Visible = xlVeryHidden
Next
End Sub

[r_mundhra]

Thank you very much Paul. This is working perfectly.