Print All Sheets Except 1

Hi Guys,

I would like to know how I can write a macro to print all sheets in a workbook, except the one called "HOME".

Any assistance greatly appreciated.

Thanks
Dave

Hello Dave,

Here is macro to print all the sheets except "HOME".

Sub PrintSheets()

  Dim Wks As Worksheet

    For Each Wks In Worksheets
      If LCase(Wks.Name) <> "home" Then
         Wks.PrintOut
      End If
    Next Wks

End Sub

Sincerely,
Leith Ross

Originally Posted by Leith Ross

Hello Dave,

Here is macro to print all the sheets except "HOME".

Sub PrintSheets()

  Dim Wks As Worksheet

    For Each Wks In Worksheets
      If LCase(Wks.Name) <> "home" Then
         Wks.PrintOut
      End If
    Next Wks

End Sub

Sincerely,
Leith Ross

Works a treat. Thanks Leith