Microsoft Office Forums - View Single Post - VBA to save a workbook without the macros

OTPM · 01-15-2014, 12:25 AM

Hi Folks
I need some help with VBA to save a copy of a macro enabled template without the AutoOpen macro. Basically when I try and open the copy workbook it still contains the Auto_Open macro which runs. I dont want the copy to contain the AutoOpen macro.
Any help would be appreciated. Here is a copy of the code:

Code:

Sub Workbook_Open()
'
' Macro1 Macro
'
'
Dim wbName
Application.DisplayAlerts = False
On Error Resume Next
    Range("A1").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False
    wbName = Range("A2").Value
    With Selection
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Columns("A:A").ColumnWidth = 14.43
    Columns("D:D").ColumnWidth = 34
    Columns("E:K").EntireColumn.AutoFit
    Columns("D:D").Select
    With Selection
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("A1").Select
    ChDir "D:\Task List Templates\Task Lists\"
    
    ActiveWorkbook.SaveAs Filename:="D:\Task List Templates\Task Lists\" & wbName & ".xls", FileFormat:=xlNormal, _
    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
    CreateBackup:=False
    
    Application.DisplayAlerts = True
    ActiveWorkbook.Close savechanges:=False
End Sub