MyFileName = CurrentWB.Path & "\QBOUploads\" & Range("A1").value & Format(Now(), "dd-mm-yyyy") & ".csv"
If that cell is on a sheet called, say, Sheet33, then:
MyFileName = CurrentWB.Path & "\QBOUploads\" & Sheets("Sheet33").Range("A1").value & Format(Now(), "dd-mm-yyyy") & ".csv"
|