Code:
[FONT=Verdana]Set wb = Workbooks.Add
ThisWorkbook.Activate
ActiveSheet.Copy Before:=wb.Sheets(1)
wb.Activate
Workbooks("Copy of TEST2 - Copy.xlsm").Close
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Dim path As String
Dim fileName As String
path = "C:\Users\andy_\OneDrive\Desktop\VAMLog\"
fileName = "SAVEPDF.frm"
ThisWorkbook.VBProject.VBComponents.Import path & fileName[/FONT][/FONT]
Im trying to get the SAVEPDF.frm to import into the new worksheet but its not working, any ideas?
its not throwing up an error, stuck now with no clues
any help appreciated?
Last edited: