I have a worksheet that needs to be saved in anywhere from 1 to 6 different
locations depending on the contents of cells AH1 through AH6 (this is where
the filenames are stored). I want the macro to save to all filenames in
this range, but I don't want a runtime error when one of the cells is blank,
for example if there are only 4 filenames instead of 6. Presently, my code
is

Sub Save_to_root()
Dim fname
With ActiveWorkbook
fname = .Worksheets("Daily").Range("AH1").Value & ".xls"
..SaveAs fname
End With
End Sub

Can someone help with the adjustment? Thanks, Pam