VBA xlVeryHidden Specific Worksheets

[daveasu]

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?

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

 

[Norie]

Which sheets from which workbook are you copying and which sheets from which workbook do you want to hide?