Hi All.
I have the below code that will allow me to copy the active worksheet and create 60 copies.
The source worksheet that I will be copying from is setup to not allow data entry on it all, all of the values are from a main data entry sheet.
The issue I am having is the below code will copy everything to the sheets as well as the formulas (identical to the source) with no issues. However, I need the formulas to drop down one row maintaining the columns. As a note: the column width, column height, Fonts, print area etc. all needs to remain the same as the source the only thing I would like to change on the worksheet copy is the formulas.
Otherwise it’s going to be a huge manual process after the sheets are created to adjust all of the formulas.
Any help or advice would be greatly appreciated!
I have the below code that will allow me to copy the active worksheet and create 60 copies.
The source worksheet that I will be copying from is setup to not allow data entry on it all, all of the values are from a main data entry sheet.
The issue I am having is the below code will copy everything to the sheets as well as the formulas (identical to the source) with no issues. However, I need the formulas to drop down one row maintaining the columns. As a note: the column width, column height, Fonts, print area etc. all needs to remain the same as the source the only thing I would like to change on the worksheet copy is the formulas.
Otherwise it’s going to be a huge manual process after the sheets are created to adjust all of the formulas.
Any help or advice would be greatly appreciated!
VBA Code:
Sub CopysheetMultipleTimes()
Dim i As Integer
Dim p As Integer
On Error GoTo out
i = InputBox("How many copies do you what?", "Making Copies")
p = 0
Do
ActiveSheet.Copy After:=Sheets(Sheets.Count)
p = p + 1
Loop Until p = i
Exit Sub
out:
MsgBox "copy was cancelled"
Application.ScreenUpdating = True
End Sub