The code below for some reason says out of context where I am trying to delete then replace tabs.

[Darren Smith]

Option Explicit

Sub CopySheets()

Dim AutomatedCardworkerWorkbook As Workbook
Dim JobCardMasterWorkbook As Workbook
Dim JobCardMasterWorksheets As Worksheet



Set AutomatedCardworkerWorkbook = Workbooks("Automated Cardworker")
Set JobCardMasterWorkbook = Workbooks("1 Page Job Card Master")
Set JobCardMasterWorksheets = JobCardMasterWorkbook.Sheets("Job Card Master")

Application.DisplayAlerts = False

AutomatedCardworkerWorkbook.Sheets("Job Card Master").Delete
AutomatedCardworkerWorkbook.Sheets("Job Card with Time Analysis").Delete
AutomatedCardworkerWorkbook.Sheets("Check Sheet").Delete
AutomatedCardworkerWorkbook.Sheets("SPEC SHEET").Delete
AutomatedCardworkerWorkbook.Sheets("Electrical inspection").Delete
AutomatedCardworkerWorkbook.Sheets("PRE ASSEMBLY3").Delete
AutomatedCardworkerWorkbook.Sheets("TOOLPOD").Delete
AutomatedCardworkerWorkbook.Sheets("FAB SHOP").Delete
AutomatedCardworkerWorkbook.Sheets("STOCK LIST").Delete
AutomatedCardworkerWorkbook.Sheets("ORDER LIST").Delete
AutomatedCardworkerWorkbook.Sheets("PRE-DEL").Delete
AutomatedCardworkerWorkbook.Sheets("WOOD SHOP").Delete
AutomatedCardworkerWorkbook.Sheets("Electrical load analysis").Delete

For Each JobCardMasterWorksheets In JobCardMasterWorkbook.Sheets
JobCardMasterWorksheets.Copy After:=AutomatedCardworkerWorkbook.Sheets(AutomatedCardworkerWorkbook.Sheets.Count)
Next
Application.DisplayAlerts = True
End Sub

 

[Darren Smith]

Maybe

Sub CopySheets()

Dim AutomatedCardworkerWorkbook As Workbook
Dim JobCardMasterWorkbook As Workbook
Dim JobCardMasterWorksheets As Worksheet
Dim Ws As Worksheet


Set AutomatedCardworkerWorkbook = Workbooks("Automated Cardworker")
Set JobCardMasterWorkbook = Workbooks("1 Page Job Card Master")
Set JobCardMasterWorksheets = JobCardMasterWorkbook.Sheets("Job Card Master")

Application.DisplayAlerts = False

AutomatedCardworkerWorkbook.Sheets("Job Card Master").Delete
AutomatedCardworkerWorkbook.Sheets("Job Card with Time Analysis").Delete
AutomatedCardworkerWorkbook.Sheets("Check Sheet").Delete
AutomatedCardworkerWorkbook.Sheets("SPEC SHEET").Delete
AutomatedCardworkerWorkbook.Sheets("Electrical inspection").Delete
AutomatedCardworkerWorkbook.Sheets("PRE ASSEMBLY3").Delete
AutomatedCardworkerWorkbook.Sheets("TOOLPOD").Delete
AutomatedCardworkerWorkbook.Sheets("FAB SHOP").Delete
AutomatedCardworkerWorkbook.Sheets("STOCK LIST").Delete
AutomatedCardworkerWorkbook.Sheets("ORDER LIST").Delete
AutomatedCardworkerWorkbook.Sheets("PRE-DEL").Delete
AutomatedCardworkerWorkbook.Sheets("WOOD SHOP").Delete
AutomatedCardworkerWorkbook.Sheets("Electrical load analysis").Delete

For Each Ws In JobCardMasterWorkbook.Sheets
   JobCardMasterWorksheets.Copy After:=AutomatedCardworkerWorkbook.Sheets(AutomatedCardworkerWorkbook.Sheets.Count)
Next Ws
Application.DisplayAlerts = True
End Sub

The workbook needs to be chosen from the Listbox3 on the userform
The list of Sheets to delete I need the whole lot entered back in to the Automated Jobcard from new worksheet. I tried it and all I get is "Job Card Master"
Can you specify all worksheets from a workbook using this line of code

Set JobCardMasterWorksheets = JobCardMasterWorkbook.Sheets("1,2,3,4,5" ect)

 

[Fluff]

The workbook needs to be chosen from the Listbox3 on the userform

And where did you mention this?

The list of Sheets to delete I need the whole lot entered back in to the Automated Jobcard from new worksheet. I tried it and all I get is "Job Card Master"

Do all those sheets exist in this workbook

Workbooks("1 Page Job Card Master")

 

[Darren Smith]

And where did you mention this? Sorry I did not say this as I have only just decided to do it this way.
Do all those sheets exist in this workbook Yes there are 5 workbooks to choose from the listbox3 but all the tabs are the same name

 

[Fluff]

Oops forgot to change part of it

For Each Ws In JobCardMasterWorkbook.Sheets
   Ws.Copy After:=AutomatedCardworkerWorkbook.Sheets(AutomatedCardworkerWorkbook.Sheets.Count)
Next Ws

 

[JLGWhiz]

And I thought I was the only one who did this.

Oops forgot to change part of it

[/QUOTE]

 

[Fluff]

And I thought I was the only one who did this.

Nope, I do it all the time

 

[Darren Smith]

I`

 

[Darren Smith]

I`ve tried to add a item from listbox3 to my code it is not working please help.

 

[Fluff]

This is now a totally different question, so you will need to start a new thread.
Is you original question solved?

 

[Darren Smith]

This is now a totally different question, so you will need to start a new thread.
Is you original question solved?

No it`s still not working