I have some code that will loop a range and copy worksheets.
Each of the sheets with *Data in the name needs to be hidden.
Any suggestions?
Each of the sheets with *Data in the name needs to be hidden.
Any suggestions?
Code:
For j = 1 To n
ThisWorkbook.Sheets(j).Copy After:=Wkb.Sheets(j)
On Error Resume Next
Set Target = Nothing
If ThisWorkbook.Sheets(j).Name Like "*Data" Then
WS.Visible = xlVeryHidden
End If
Next j
Last edited: