Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
ActiveWorkbook.SaveAs question(s)
When I use "ActiveWorkbook.SaveAs" in the following code I lose focus from
the macro it originated from . '========= With ActiveSheet sSheetName = ActiveSheet.Name If ActiveSheet.Name = "Sheet1" Then GoTo EndIt End If Sheets(sSheetName).Select Sheets(sSheetName).Copy ActiveWorkbook.SaveAs Filename:= _ sNewItem & "\Template ISO " & sSheetName & " Audit mm.dd.yy.xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False, WriteResPassword:="2000" '========= It seems any commands I use after the above the macro will stop processing unless I use a msgbox prompt right after and that only works under certain variables used or always if I use a string like msgbox "ok"? After clicking on the msgbox prompt the macro appears to continue on. There are no errors being reported. My intention is to create a new workbook (wb) from an existing wb, add a worksheet to the new wb, rename the worksheet in the new wb and continue on with more code but I can not get past this stumbling block. -- Regards Rick XP Pro Office 2007 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Help with ActiveWorkbook.SaveAs | Excel Programming | |||
ActiveWorkbook.SaveAs | Excel Programming | |||
Set mySavedSummary = ActiveWorkbook.SaveAs( ....... | Excel Programming | |||
ActiveWorkbook.SaveAs Problem | Excel Programming | |||
activeworkbook.saveas | Excel Programming |