debug error Y/N

[Trevor3007]

hi,


The code below worked fine until I added the line (text in red)

Sub savetab()

If MsgBox("Do you want to save as a MACRO embedded workbook?", vbYesNo) = vbYes Then
    ActiveWorkbook.SaveAs "C:\Users\data1" & Application.PathSeparator & ActiveWorkbook.Sheets(1).Name & ".xlsm", 52


Else


[COLOR=#ff0000]If MsgBox("Do you want to save as a MACRO embedded workbook?", vbYesNo) = vbYes Then[/COLOR]
    ActiveWorkbook.SaveAs "C:\Users\data2" & Application.PathSeparator & ActiveWorkbook.Sheets(1).Name & ".xls", 56


End If
End Sub

which produced the debug error (please click on line to display)

https://www.amazon.co.uk/clouddrive/share/SdCuatmx0DKIJygRc9OmI3vcvgwot4aPLipNQoDm3r5

can some one resolve for me?


KR
Trevor

 

[dmt32]

Hi,

try

Sub savetab()


If MsgBox("Do you want to save as a MACRO embedded workbook?", vbYesNo) = vbYes Then
    ActiveWorkbook.SaveAs "C:\Users\data1" & Application.PathSeparator & ActiveWorkbook.Sheets(1).Name & ".xlsm", 52




ElseIf MsgBox("Do you want to save as a MACRO embedded workbook?", vbYesNo) = vbYes Then
    ActiveWorkbook.SaveAs "C:\Users\data2" & Application.PathSeparator & ActiveWorkbook.Sheets(1).Name & ".xls", 56




End If
End Sub

Dave

 

[Trevor3007]

works a treat ..thank you dmt32.

is it possible to have it so it would save both at the same time to the specific locations & have also have the the other 2 options too?

MTIA
Trevor3007