Hello guys - i am new to this forum and also macros. I have a workbook I created that has a macro to copy the contents of one particular sheet to a new sheet and rename it. The macro also clears out certain data so it can be entered again with the updated information. The problem I am having is getting the macro to run from the newly created sheet and reference that sheet instead of the first sheet. Also I would like the macro to work like: sheet 2 references sheet 1, sheet 3 will reference sheet 2, sheet 4 will reference sheet 3 and so on. Any help would be appreciated. This is the macro I have so far.
Sub ADDNEWBITRUN()
'
' ADDNEWBITRUN Macro
'
'
ActiveSheet.Unprotect
Sheets("BITRUN 1").Select
Sheets("BITRUN 1").Copy Before:=Sheets(6)
Range("I12").Select
ActiveCell.FormulaR1C1 = "='BITRUN 1'!R[2]C"
Range("I11").Select
Selection.ClearContents
Range("I13").Select
Selection.ClearContents
Range("I16").Select
Selection.ClearContents
Range("I18").Select
ActiveCell.FormulaR1C1 = "='BITRUN 1'!R[1]C"
Range("I19").Select
Selection.ClearContents
Range("I22").Select
ActiveCell.FormulaR1C1 = "='BITRUN 1'!R[1]C"
Range("I23").Select
Selection.ClearContents
Range("J8").Select
ActiveCell.FormulaR1C1 = "='BITRUN 1'!RC+1"
Range("J9").Select
ActiveWindow.SmallScroll Down:=3
Range("I38:I42").Select
Selection.ClearContents
Range("D39:D41").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B45:J52").Select
Selection.ClearContents
Range("G20:H20").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("D21").Select
ActiveSheet.Name = "BITRUN " & Format(Range("J8"))
End Sub
Bookmarks