VBA- Copy Worksheet to multiple worksheets (duplicate worksheet

[PhosFeedLogisticsMan]

Still new and still learning, I am close, but can't figure out how to get this to work the way I want. Here is what I have:

Sub copytemplate3()

Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
Dim Source As Range
Set Source = ThisWorkbook.Worksheets(2).Range("A1:N26")
' Begin the loop.
For I = 2 To WS_Count
    ThisWorkbook.Worksheets(I).Select ' just select the sheet
    Source.Copy
    Cells.Select
    ActiveSheet.Paste
    
Next I

End Sub

What I really need is the following, but I don't want it renamed as "Vendor Scorecard2" which is a duplicate of my second sheet.

  Dim ws1 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("Vendor Scorecard")
ws1.Copy ThisWorkbook.Sheets(Sheets.Count)

Basically trying to get this second part to loop through the sheets instead of copying and pasting date from a range as in the first example. I need it to look exactly as my "Vendor Scorecard" template(Sheet 2).

In short.... exactly duplicate a sheet called Vendor Scorecard, and paste it into multiple worksheets that follow that sheet all which have different Vendor Names. Make sense? So close, but can't figure out how to to do it.

 

[mumps]

Try:

Sub copytemplate3()
    Application.ScreenUpdating = False
    Dim ws As Worksheet
    For Each ws In Sheets
        If ws.Name <> "Vendor Scorecard" Then
            Sheets("Vendor Scorecard").Range("A1:N26").Copy ws.Cells(1, 1)
        End If
    Next ws
    Application.ScreenUpdating = True
End Sub

 

[PhosFeedLogisticsMan]

This is technically doing what I have in the original code and not bringing along the formatting, and it also will overwrite any other sheets I have in my workbook. Trying to duplicate the Sheet called Vendor Scorecard, and paste that in all the sheets that follow its name. Copying doesn't bring along formatting. Sheet.Copy does but copying the range doesn't seem to work.

Try:

Sub copytemplate3()
    Application.ScreenUpdating = False
    Dim ws As Worksheet
    For Each ws In Sheets
        If ws.Name <> "Vendor Scorecard" Then
            Sheets("Vendor Scorecard").Range("A1:N26").Copy ws.Cells(1, 1)
        End If
    Next ws
    Application.ScreenUpdating = True
End Sub

 

[mumps]

I tried the macro on some dummy sheets and it worked properly copying all the data and formatting. In order not to overwrite any other sheets in your workbook, the question would be what are the names of those sheets?

 

[PhosFeedLogisticsMan]

The sheet names are all going to be different. I still can't get formatting to work. Likely due to merged cells.

 

[mumps]

Perhaps you could upload a copy of your file to a free site such as www.box.com. or www.dropbox.com. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. Include a detailed explanation of what you would like to do referring to specific cells and worksheets. If the workbook contains confidential information, you could replace it with generic data.