Applying format of Master sheet to all other sheets in workb

[deymongussman]

Hi:

Further to this post http://www.mrexcel.com/board2/viewtopic.php?t=238402, what codes would apply all the formating of the "Master" sheet to the other sheets of the workbook. Thanks for your help.

Deymon

 

[deymongussman]

Hi:

Can someone take a look at this question? Thanks for your help.

Deymon

 

[Norie]

Deymon

Could you actually state your problem/question?

What formats do you want to apply?

Have you considered using the 'Master' sheet as a template, creating copies of it and transferring the data from the other sheets to the new copies?

That's probably the easiest way to do this.

 

[deymongussman]

Thanks Norie:

My apologies for not being clear. Bases on your suggestion, what codes would allow me to make multiple copies of the master worksheet in the workbook. Thanks

Deymon

 

[Norie]

Deymon

No problem.

You could use something like this.

Sub CreateCopies()
Dim wsMstr As Worksheet
Dim wsNew As Worksheet
Dim wsOld As Worksheet

    Set wsMstr = Worksheets("Master")
    For Each wsOld In Worksheets
         If wsOld.Name <> wsMstr.Name And Left(wsOld.Name, 3) <> "New" Then
             wsMstr.Copy After:=Worksheets(wsOld.Index)
             Set wsNew = ActiveSheet
             wsOld.Cells.Copy
             wsNew.Range("A1").PasteSpecial xlPasteValues
             wsNew.Name = "New - " & wsOld.Name
        End If
    Next wsOld
    Application.CutCopyMode = False
    
End Sub

 

[deymongussman]

Norie:

Thanks for your help. Would it be possible to have codes that make a specific number of copies? Also my workbook has only one formatted worksheet from which copies will be made. Your help is appreciated.

Deymon

 

[Norie]

Deymon

I don't see why not.

But it would help if you explained what you actually want to do.