Excluding Worksheets from a Workbook Copy

[WxShady13]

I have a workbook that has 3 static worksheets that are named the same in every workbook. The additional worksheets are dynamically created based on the employee name and training record selected by the supervisor. I need to copy a range of data on every worksheet but the 3 static ones (***NOTE I do not know the last row for each worksheet), onto one master worksheet so that I can then create a chart. I have the code where it will copy all the worksheets, but how do I remove the 3 static ones?

 

[Fluff]

Hi & welcome to MrExcel.
Maybe something like

Dim Ws As Worksheet
For Each Ws In Worksheets
   If Ws.name <> "Me" And Ws.name <> "Myself" And Ws.name <> "I" Then
      'do something
   End If
Next Ws

 

[WxShady13]

Thank you for the quick response...I added the And statements but now it doesn't copy anything...

My static worksheets are Instructions, Summary, User Record and Training Matrix. Those are the first 4 in each workbook, would it be easier to eliminate the first 4?

 

[Fluff]

OK, how about

Dim i As Long
For i = 5 To Worksheets.Count
   With Sheets(i)
      'do something
   End With
Next i

 

[WxShady13]

I apologize I am very new to VBA code....on the 'do something I know the .copy command should be the first line followed by where to paste it. I had previously used ws.Range("A1:G70").Copy however the ws.Range no longer works...What is the command to copy the worksheets, but only get the cells with data?

 

[Fluff]

Which sheet are you copying to?

 

[WxShady13]

I am copying everything to the Summary page

 

[Fluff]

Ok, try this

Sub ttt()
   Dim i As Long
   For i = 5 To Worksheets.Count
      With Sheets(i)
         .Range("A1:G70").Copy Sheets("Summary").Range("A" & Rows.Count).End(xlUp).Offset(1)
      End With
   Next i
End Sub

 

[WxShady13]

You are brilliant!!!! I cannot thank you enough

 

[Fluff]

Glad to help & thanks for the feedback