I have the following macro I recorded, I need to amend it so that the 'Path' is populated from a cell which the user can enter -
VBA Code:
Sub XeroCSV()
'
' XeroCSV Macro
'
'
Dim FileName As String
Dim Path As String
Path = "\\?????????\home\????????\?????????\Documents\Xero Reports\Payroll Data for Xero\Xero CSV Imports\"
FileName = Range("G2").Value & ".csv"
Sheets("Xero Import").Select
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:=Path & FileName, FileFormat:=xlCSV, Local:=True
'ActiveWorkbook.SaveAs Path & FileName, xlCSV
Application.DisplayAlerts = True
ActiveWindow.Close
Sheets("Journal").Select
Range("G5").Select
End Sub