Thanks a lot. I am using the following code in the light of changes you suggested. But I am getting runtime error 9. Subscript out of range.
MyFileName = CurrentWB.Path & "\QBOUploads\" & Sheets("Analysis").Range("I1").Value & Format(Now(), "dd-mm-yyyy") & ".csv"
|