How to paste same spreadsheet across multiple tabs without copying and pasting individually

[Gem2880]

hi,

Does anyone know of a quick way to copy the first page of a spreadsheet onto multiple tabs in one go rather than paste the spreadsheet individually?

Thank you

 

[Takae]

Hope this helps.

Sub copy()
Dim n As Long, i As Long
n = InputBox("How many?")
For i = 1 To n
    Sheets(1).copy after:=Sheets(Sheets.Count)
Next
End Sub