Bedankt voor de hulp!
Groet Sidney
Code: Selecteer alles
Dim Path As String
Dim filename As String
If Range("B2").Value = "1121" Then
Path = "C:\Users\sbeckers\Desktop\Meetkamer Meetdocumenten\M1\"
Else
If Range("B2").Value = "1137" Then
Path = "C:\Users\sbeckers\Desktop\Meetkamer Meetdocumenten\M2\"
Else
If Range("B2").Value = "1153" Then
Path = "C:\Users\sbeckers\Desktop\Meetkamer Meetdocumenten\M3\"
Else
If Range("B2").Value = "1173" Then
Path = "C:\Users\sbeckers\Desktop\Meetkamer Meetdocumenten\M4\"
Else
If Range("B2").Value = "1189" Then
Path = "C:\Users\sbeckers\Desktop\Meetkamer Meetdocumenten\M5\"
End If
End If
End If
End If
End If
filename = Range("B1")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs filename:=Path & filename & ".xlsx", FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
Application.Quit
End Sub