C
Constance
I am not sure what I am missing in this macro but instead of printing all of
the worksheets that have been grouped, this only prints the active worksheet
in the group. Below is a portion of the code I am using:
Sub Print_range()
Dim Month As Variant
Set listRange = ThisWorkbook.Worksheets("Misc").Range("print_list")
Month = InputBox("Enter Month as 3 letter first letter Capital: ")
Select Case Month
Case "": Exit Sub
Case "Jul": Sheets(Array("Womens Heart", "Physical Med & Rehab",
"Phys Med-ARU&SNF", _
"Northwood", "Womens Health Ctr", "Forest Park", "Gyn &
Birthing", "Bariatric", _
"Regency", "55912", "Palo Alto", "Radiology")).Select
Sheets("Womens Heart").Activate
Columns("E:E").Select
Selection.PrintOut Copies:=1
Case "Aug": Sheets(Array("Womens Heart", "Physical Med & Rehab",
"Phys Med-ARU&SNF", _
"Northwood", "Womens Health Ctr", "Forest Park", "Gyn &
Birthing", "Bariatric", _
"Regency", "55912", "Palo Alto", "Radiology")).Select
Sheets("Womens Heart").Activate
Columns("F:F").Select
Selection.PrintOut Copies:=1
Case "Sep": Sheets(Array("Womens Heart", "Physical Med & Rehab",
"Phys Med-ARU&SNF", _
"Northwood", "Womens Health Ctr", "Forest Park", "Gyn &
Birthing", "Bariatric", _
"Regency", "55912", "Palo Alto", "Radiology")).Select
Sheets("Womens Heart").Activate
Columns("G:G").Select
Selection.PrintOut Copies:=1
End Select
End Sub
Thanks for the help!
the worksheets that have been grouped, this only prints the active worksheet
in the group. Below is a portion of the code I am using:
Sub Print_range()
Dim Month As Variant
Set listRange = ThisWorkbook.Worksheets("Misc").Range("print_list")
Month = InputBox("Enter Month as 3 letter first letter Capital: ")
Select Case Month
Case "": Exit Sub
Case "Jul": Sheets(Array("Womens Heart", "Physical Med & Rehab",
"Phys Med-ARU&SNF", _
"Northwood", "Womens Health Ctr", "Forest Park", "Gyn &
Birthing", "Bariatric", _
"Regency", "55912", "Palo Alto", "Radiology")).Select
Sheets("Womens Heart").Activate
Columns("E:E").Select
Selection.PrintOut Copies:=1
Case "Aug": Sheets(Array("Womens Heart", "Physical Med & Rehab",
"Phys Med-ARU&SNF", _
"Northwood", "Womens Health Ctr", "Forest Park", "Gyn &
Birthing", "Bariatric", _
"Regency", "55912", "Palo Alto", "Radiology")).Select
Sheets("Womens Heart").Activate
Columns("F:F").Select
Selection.PrintOut Copies:=1
Case "Sep": Sheets(Array("Womens Heart", "Physical Med & Rehab",
"Phys Med-ARU&SNF", _
"Northwood", "Womens Health Ctr", "Forest Park", "Gyn &
Birthing", "Bariatric", _
"Regency", "55912", "Palo Alto", "Radiology")).Select
Sheets("Womens Heart").Activate
Columns("G:G").Select
Selection.PrintOut Copies:=1
End Select
End Sub
Thanks for the help!