Excel มีปัญหาเรื่องการทำปุ่ม Save as ครับ

ข้อมูล Excel 2016

คือผมได้ทดลองทำฟอร์ม ดังรูป

โดยสมมุติ ให้เซฟไฟล์ เป็นวันเดือน และ เลขที่บิล(ในตัวอย่างคือเลข16 ใช้ฟอร์แมตเซลเป็น 630000)
โดยใช้สูตร

Sub Save_as()
ThisFile = Format(Range("G4").Value, "Vat yymm") & Format(Range("H4").Value, "_0000") & ".xlsm"
 ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub

ผลคือใช้ได้ปกติดีครับ ได้ชื่อไฟล์ " Vat 6202_0016.xlsm " แต่ปัญหาคือเมื่อเราเซฟซ้ำ มันจะมีหน้าต่างขึ้นมาว่าเราจะSaveซ้ำชื่อไฟล์เดิมหรือไม่ ถ้าตอบไปว่าใช่ก็ไม่มีปัญหาอะไรครับแต่ ถ้าตอบว่าไม่(คืออยากจะเซฟเป็นชื่ออื่น) มันจะเด็งหน้านี้ขึ้นมาครับ


ตรงนี้มันขึ้นหน้านี้มา ว่าเราไม่สามารถเข้าถึงไฟล์ได้ ผมลองระบุที่เก็บไฟล์อยู่ในบรรทัดแรกแล้ว เช่น Path="D:\test" ซึ่งมันเป็นที่ๆผมเก็บไฟล์ที่ทำไว้ และก็มีไฟล์เดิมของมันอยู่  มันก็ยังไม่ได้  เราจะทำยังไงให้มันไม่ขึ้นหน้านี้ และให้ขึ้นหน้าต่าง save as ปกติให้เราได้ทำการเปลี่ยนชื่อครับ

ปล. หรือผมควรทำแบบวิธีธรรมดาดีครับ ไปเมนูไฟล์แล้วsave as ปกติเพื่อเปลี่ยนชื่อเป็นไฟล์อื่นได้