Insert a macro via vba

[Margild8a]

Good day,

i'm creating a macro that splits a master file into over 30 files, each of those files needs to have a macro that shows/hide columns for some of the sheets on them. i'm not able to figure out a way to add this code to each new file

If ActiveSheet.Columns("B:D").Hidden = True Then
[INDENT]ActiveSheet.Columns("B:D").Hidden = False[/INDENT]
Else
[INDENT]ActiveSheet.Columns("B:D").Hidden = True[/INDENT]
End If

Thanks in advance for your help

 

[s_woodbury]

I think you need to Export the Macro then Import it into the new file.

This is what I did but I first needed to set up the Path where to export the macro it's called strTempFile1 in the example:

'Copy Module from ThisWorkBook to the path and folder of ThisWorkBook
MSRMaster.VBProject.VBComponents("Active_Customer_Filter").Export strTempFile1

'Copy the Module we saved earlier from ThisWorkBook to the New Workbook
Application.VBE.ActiveVBProject.VBComponents.Import (strTempFile1)

 

[Margild8a]

I think you need to Export the Macro then Import it into the new file.

This is what I did but I first needed to set up the Path where to export the macro it's called strTempFile1 in the example:

'Copy Module from ThisWorkBook to the path and folder of ThisWorkBook
MSRMaster.VBProject.VBComponents("Active_Customer_Filter").Export strTempFile1

'Copy the Module we saved earlier from ThisWorkBook to the New Workbook
Application.VBE.ActiveVBProject.VBComponents.Import (strTempFile1)

Thank you i'll try it.