SELECT PRINT AREA & HIDE WORKSHEET & UNHIDE WORKSHEET

 SELECT PRINT AREA

Sub printSelection()

Selection.PrintOut Copies:=1, Collate:=True

End Sub

HIDE WORKSHEET

Sub HideWorksheet()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

If ws.Name <> ThisWorkbook.ActiveSheet.Name Then

ws.Visible = xlSheetHidden

End If

Next ws

End Sub

UNHIDE WORKSHEET

Sub UnhideAllWorksheet()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

ws.Visible = xlSheetVisible

Next ws

End Sub