Put a break point (or a Stop instruction) directly after this line (or its equivalent):
MyFileName = CurrentWB.Path & "\QBOUploads\" & Sheets("Analysis").Range("I1").Value & Format(Now(), "dd-mm-yyyy") & ".csv"
Then when the code reaches that point and stops, type the following in the Immediate pane and press Enter:
?MyFileName
Do you get a correct file name and path?