Hoe, kan ik de waarde van de inputbox mee laten opslaan?
Moet achter "overzicht" komen.
Sub Opslaan_Bnaam()
Dim Bnaam As String
Bnaam = InputBox("Type Bedrijsfnaam")
ActiveWorkbook.SaveAs Filename:="D:\Overzicht.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
Moet achter "overzicht" komen.
Sub Opslaan_Bnaam()
Dim Bnaam As String
Bnaam = InputBox("Type Bedrijsfnaam")
ActiveWorkbook.SaveAs Filename:="D:\Overzicht.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub