savepath change

[AzureStoneDog]

Good morning. Here is what I currently have as code:

Dim SavePath    As String
Dim SaveAs As String
Dim FileName As String
Dim sDate As String

SavePath = "\\..........\2020\"
FileName = "WC "
sDate = Format(Sheets("Monday").Range("B1"), "dd-mm-yyyy")
SaveAs = SavePath & FileName & sDate & ".xls"

I have folders labelled 01 Jan, 02 Feb and so on until 12 Dec (the number helps keep them in order), so after the 2020\ would be 2020\01 Jan\ for example. I'd like to set this so if the date of the range b1 is within a particular set of dates, it goes to the relevant monthly savepath.

 

[GWteB]

Welcome to the forum.
This might work

Sub Example()
    
    Dim SavePath    As String
    Dim SaveAs      As String
    Dim FileName    As String
    Dim sDate       As String
    Dim dtDate      As Date
    
    SavePath = "\\..........\"
    FileName = "WC "
    dtDate = Sheets("Monday").Range("B1")
    
    sDate = Format(dtDate, "dd-mm-yyyy")
    SavePath = SavePath & Format(dtDate, "yyyy") & "\" & Format(dtDate, "mm") & " " & Format(dtDate, "mmm") & "\"
    SaveAs = SavePath & FileName & sDate & ".xls"

End Sub