Inserting a sub into a new page using VB/Macros

[Kabasauls]

Hello,

I wrote a code that creates new pages based on a template. I found that I need to add three Subs() to every page that is created using this code. I have never done this before and after seraching for an answer, came out empty handed.

I am looking for a way to create a page and add code using my previously written code.

This is what I've tried to come up with so far.

Sub AddCode()

Dim sCode As String

   sCode = "sub VBAMacro()" & vbCr & " msgbox ""VBA Macro called"" " & vbCr & "end sub"
   'find a way to insert this code (String) into new page
      
End Sub

Thank you for your time.

 

[Norie]

What do these subs do?

Are they event subs like Worksheet_Change/Worksheet_SelectionChange?

 

[Kabasauls]

There are three subs. The first one just call a form, the second one calls a function and the last one is a "Worksheet_BeforeDoubleClick" sub that calls a form.

 

[Kabasauls]

Hello,

I still need help trying to figure this one out. Any help would be greatly appreciated!

 

[Norie]

You might not need to add the 3 subs to each page.

For the BeforeDoubleClick event you can use the workbook event code SheetBeforeDoubleClick.

If you are calling the other 2 subs from Form buttons you can just have the subs in a standard module and assign them to the buttons.

 

[Kabasauls]

Thank you for that tip! I didn't understand the second part. I changed one of the subs to "Thisworkbook" and it's perfect.

This is the code that I have leftover to copy on the new pages. How can I add this code to the sheet every time is created?

Private Sub Print_Click()

     PopulateFrm.Show

End Sub

     Private Sub NewPage_Click()

Call NewPg

End Sub

Thank you for your time.

 

[Norie]

You can't just move the double click code to the ThisWorkbook module.

It needs to be altered to use the workbook event SheetBeforeDoubleClick.

As for the other 2 subs, are you using buttons to call them?

 

[Kabasauls]

Yeah. I adjusted it to fit the workbook event.

The 2 subs are being called by 2 different buttons.

 

[Norie]

So all sorted now?

 

[Kabasauls]

Thank you! That was a lot simpler than I thought.