Maybe:

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:=objshell.specialfolders("Desktop") & _
"\Mud Innovations Drilling Fluids Program\Wells\" & _
Range("A10") & "\" & Range("a10"), FileFormat:=52
Application.DisplayAlerts = True
If that doesn't work perhaps you could save it where it is and then move it