If saved as, with specified file name to be saved as

[Hermanie]

Hi all,

I want to have the following line in a 'if...then' code:

ActiveWorkbook.SaveAs Filename:="Aon " & Format(rapportdatum, "ddmmyy") ".xlsx"

So if the workbook is saved, then perform the rest of the macro. So if saved then:

ws.UsedRange.Copy    With ws.UsedRange.Value = .Value
    End With
    Application.CutCopyMode = False
    ActiveWindow.DisplayGridlines = False

If not saved, then end macro.

I can't get this to work..

This isn't working:

Dim succes As Boolean
succes = ActiveWorkbook.SaveAs Filename:="Aon " & Format(rapportdatum, "ddmmyy")
if succes is true then

etc. etc.

 

[BarryL]

maybe:

If ActiveWorkbook.Name = "Aon " & Format(rapportdatum, "ddmmyy") & ".xlsx" Then
ws.UsedRange.Copy    With ws.UsedRange.Value = .Value
    End With
    Application.CutCopyMode = False
    ActiveWindow.DisplayGridlines = False
End If