Opslaan document , overschrijven ?

[Schipperjte]

Hoi ,


een simple macro

Sub bestandnaamuitcel
naam = Range("a1")
ActiveWorkbook.SaveAs naam
End sub

Werkt goed maar hij vraagt dan overschrijven ja of nee

kan dat aangepast worden dat hij het niet meer vraagt ?

 

[HSV]

Sub bestandnaamuitcel()
naam = Range("a1")
 [COLOR="red"] Application.DisplayAlerts = False[/COLOR]
   ActiveWorkbook.SaveAs naam
  [COLOR="red"]Application.DisplayAlerts = True[/COLOR]
End Sub

 

[Schipperjte]

Ik ga er mee aan de slag

Bedankt