Originally Posted by
Jimmcintyre
Is there any code that can search the array and pick out the visible sheets in the array to then only print them combiend.
The array is large and cant be updated each time to print.
Sub PrintSpecificSheets()
Dim wsArr As Variant, wsC As Integer, z As Integer, oVar() As Variant
wsArr = Array("D 30%", "EW 30%", "RW 30%", "S 30%", "W 30%")
For wsC = 0 To UBound(wsArr)
If Sheets(wsArr(wsC)).Visible Then
ReDim Preserve oVar(z): oVar(z) = wsArr(wsC): z = z + 1
End If
Next wsC
Worksheets(oVar).PrintOut
End Sub