I am not sure if it will work, but try adding the statement "On Error
Resume Next" after the "End With". It worked for me. Good Luck.
-pb