Melding bestand overschrijven

[Relleboer]

Hoe kan ik zoregn dat onderstaande co9de zo word aangepast dat hij ook ja zeg op bestand overschrijven

Sub opslaan()

    ActiveWorkbook.SaveAs Filename:= _
        "G:\Conversion Forms jan-willem\RAL Shade Finder.xlt", FileFormat:=xlTemplate _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub

Groet Relleboer

 

[Wigi]

Sub opslaan()

[B]    Application.DisplayAlerts = False[/B]
    ActiveWorkbook.SaveAs Filename:= _
        "G:\Conversion Forms jan-willem\RAL Shade Finder.xlt", FileFormat:=xlTemplate _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
[B]    Application.DisplayAlerts = True[/B]
End Sub

Wigi

 

[Relleboer]

thanks