Copy Worksheet Throws Runtime Error 424 Object Required

[NorthbyNorthwest]

Hoping someone can help me with error problem. I am trying to copy a worksheet several timeswithin a workbook and assign new names to sheets. However, the procedure throws runtime error424 "object required" on line which reads: Sheets(3).CopyAfter:=Sheets(Sheets.Count). It thengoes on to copy and name sheets; however, the procedure ends. What can I do to prevent the error? I have subsequent code I’d like the procedureto run.

With ThisWorkbook.Sheets(3)
.Visible = xlSheetVisible
.Activate
.Range("A7").Select
End With

    Sheets(3).CopyAfter:=Sheets(Sheets.Count)
Set ws =ActiveSheet
 ws.Name ="Alpha"

Sheets(3).CopyAfter:=Sheets(Sheets.Count)
Set ws =ActiveSheet
ws.Name ="Bravo"

Sheets(3).CopyAfter:=Sheets(Sheets.Count)
Set ws =ActiveSheet
ws.Name ="Charlie"

Sheets(3).CopyAfter:=Sheets(Sheets.Count)
Set ws =ActiveSheet
ws.Name ="Delta"

 

[Smitty]

Welcome to the Board!

You don't have a space between Copy & After.

HTH,

 

[NorthbyNorthwest]

Thanks, Smitty for quick reply. Unfortunately, I do have space between two words. It's my first time posting code between code tags. I tried to remove lines and sort of mangled the code. I guess I need more practice. See reposted code.

With ThisWorkbook.Sheets(3)
.Visible =xlSheetVisible
.Activate
.Range("A7").Select
End With

Sheets(3).CopyAfter:=Sheets(Sheets.Count)
Set ws =ActiveSheet
ws.Name ="Alpha"

Sheets(3).CopyAfter:=Sheets(Sheets.Count)
Set ws =ActiveSheet
ws.Name ="Bravo"

Sheets(3).CopyAfter:=Sheets(Sheets.Count)
Set ws =ActiveSheet
ws.Name ="Charlie"

Sheets(3).CopyAfter:=Sheets(Sheets.Count)
Set ws =ActiveSheet
ws.Name ="Delta"

Any additional help you could give me would be greatly appreciated.

 

[Smitty]

This works fine for me:

Sub foo()
    Dim ws As Worksheet
   
    With ThisWorkbook.Sheets(3)
        .Visible = xlSheetVisible
        .Activate
       .Range("A7").Select
    End With

    Sheets(3).Copy After:=Sheets(Sheets.Count)
    Set ws = ActiveSheet
    ws.Name = "Alpha"

    Sheets(3).Copy After:=Sheets(Sheets.Count)
    Set ws = ActiveSheet
    ws.Name = "Bravo"

    Sheets(3).Copy After:=Sheets(Sheets.Count)
    Set ws = ActiveSheet
    ws.Name = "Charlie"

    Sheets(3).Copy After:=Sheets(Sheets.Count)
    Set ws = ActiveSheet
    ws.Name = "Delta"
End Sub

 

[NorthbyNorthwest]

Thanks, Smitty. I'm going to follow your lead and break up procedure in smaller parts (three to be exact). Copying the sheets was part I. Copying data rows for Alpha, Bravo, Charlie, and Delta from a Summary Sheet to the individual sheets I created was part II. (Alpha, Bravo, Charlie, and Delta appear in one the Summary sheet columns). And part III was moving the Alpha, Bravo, Charlie, and Delta worksheets to their own individual workbooks. Maybe I'm trying to do too much in one procedure given my skill level right now.

 

[Smitty]

You might want to post the code in its entirety in the future so we can see what you're trying to do. I only got to test what you posted...