Saving file issue

Maybe try:

ActiveWorkbook.SaveAs Filename:= _ 
        iif(dir("Q:\") <> "","Q","S") & ":\Logistics\Team Logistics\PURA upload sheet\PURA upload sheet.xls", _ 
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ 
        ReadOnlyRecommended:=False, CreateBackup:=False

not tested though.

Thank you so much for your quick reply. I'll test it when I get out of my meeting.

One question: Should the first line of the code start with "iif"? It looks like a typo but it could also be something that I haven't tripped across yet.