Save as

Jeg har denne vba kode til at gemme mit ark med, og det fungere.
Nu kunne jeg godt tænke mig at forfine den lidt sådanne at jeg i i celle G3 i arket "Bestilling" kunne skrive en sti hvor jeg kunne gemme filen.

På forhånd tak

Klaus w

Private Sub CommandButton3_Click()

   
    Dim x As String
    x = Range("g3")
        ActiveWorkbook.SaveAs Filename:="C:\PBM mønstring\" & x & ".xlsm", FileFormat _
            :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
 
End Sub