this code saves the file like i want it to, but if prompted to overwrite and
i click 'no', i get an error. how can i get rid of the error or wait for the
next worksheet change?



Sub Worksheet_Change(ByVal Target As Range)
With Worksheets("Page 1").Range("A5")
If Not .Range("A5") Is Nothing Then
SaveAs Filename:="H:\Daily Reports\" & Worksheets("Page
1").Range("A12").Text & Worksheets("Page 1").Range("H9").Text & "to" &
Worksheets("Page 1").Range("K9").Text & ".xls"
End If
End With

End Sub