Pasting to multiple sheets

[asjmoron]

Evening all!

This may be a far stretch....

I have workbook with 500 tabs. I have made the first tab exactly as it needs to be but now I want to copy that (formulas and all) to the other 499 tabs. Any advice?

 

[Logit]

.
This seems to work here :

Option Explicit


Sub CpyOnePsteAll()
Dim src As Range, sel As Range
Dim i As Long


Set sel = Selection
Set src = ActiveWorkbook.Sheets("Sheet1").UsedRange '<-- Change master sheet name here
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
        For i = 1 To 3
            src.Copy ActiveWorkbook.Sheets(i).Range("A1")
        Next i
    
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    




End Sub