View Single Post
 
Old 09-02-2018, 01:27 AM
p45cal's Avatar
p45cal p45cal is offline Windows 10 Office 2016
Expert
 
Join Date: Apr 2014
Posts: 956
p45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond repute
Default

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"
Reply With Quote