I copied and pasted what you had earlier. To remove those just use
if me.txtday1 = me.txtplot then
filename1 = CurrentProject.Path & "\" & Replace(Me.txtday1, "/", "_") & "_qry_01.xlsx".
else
filename1 = CurrentProject.Path & "\" & Replace(Me.txtday1, "/", "_") & Replace(Me.txtplot, "/", "_" &...