You have been doing this awhile and should know better. Anyway.
Sub copycorrectsheets()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "Summary" _
And ws.Name <> "forms" _
And ws.Name <> "admin" Then
ws.Range("G7").CurrentRegion.Copy _
Worksheets("summary").Cells(Rows.Count, "G").End(xlUp)(2)
End If
Next ws
End SubDon Guillett SalesAid Software dguille...@gmail.com From: Cab Boose Sent: Sunday, February 26, 2012 10:45 PM To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ Excude some sheets in macro Hi See attachedI workbook. XL2000 Refer to summary sheet I am wanting to extract data from some sheets into summary sheet. I can exclude 1 sheet ok, but when I try to exclude others I get syntax error. The line of code with problem is: If Worksheets(k).Name = "summary", "forms", "admin" Then GoTo nextk I do not want to copy cells in summary, forms, or admin. Something to do with the commas, have tried also without the commas. Should I clear the summary sheet each time before paste or delete sheet and make a new one called summary? Thanks and regards Charlie Harris -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com
