Why do you need code to write code?
Do you even need multiple macros?
For example you could have one AddCredit macro that can be assigned to each button.
Then you can use Application.Caller to find the location of the button that's called the code, and you can use that to add a new credential line.
Something like this.
Sub AddCred()
Dim Lr As Integer
Dim rng As Range
Set rng = Worksheets("PC&D Tracker Coach").Shapes(Application.Caller).TopLeftCell
Lr = rng.Offset(2).End(xlDown).Row
Application.ScreenUpdating = False
Rows(Lr + 1).Insert Shift:=xlDown
Cells(Lr + 1, "B") = Cells(Lr, "B") + 1
Rows(Lr).Copy
Rows(Lr + 1).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "."
Cells(Lr + 1, "B").Select
Application.ScreenUpdating = False
End Sub
I've just assigned that code to all the buttons for adding credentials and it works.
You could probably do something similar for the other buttons, in fact you might be able to use that code for all the buttons that add a row.
LinkBack URL
About LinkBacks
Using a macro to create a macro?
Register To Reply
Bookmarks