A dialog stops my macro

[gtorres]

Hi guys.
First here is my code

Application.DisplayAlerts = False 
Application.AskToUpdateLinks = False 
Application.ScreenUpdating = False 
Set rng = ws.Range("B4:B10,B24:B30") 
For Each rngTemp In rng.Cells 
    On Error Resume Next 
    rngTemp.Formula = Replace(rngTemp.Formula, namesheet1, namesheet2) 
    On Error GoTo 0 
Next rngTemp 
Application.DisplayAlerts = True 
Application.AskToUpdateLinks = True 
Application.ScreenUpdating = True

When the namesheet2 is missing in the workbook, a "Select Sheet" message appears stoping my macro. How I can to pass this message in the macro?
The only way is pressing [ESC] for every cell.
Another sugestion please?

[raypayette]

You say "When the namesheet2 is missing..." Excel asks for the missing variable. Of course! You must supply the name or else it is an error!

[gtorres]

Thanks for your response Ray.
When a workbook referenced in a formula is missing, excel shows a "Select workbook" dialog box. This can be passed by Application.DisplayAlert = False.
But, if this workbook is not missing, but the referenced sheet is missing, excel shows a "select sheet" dialog.
How can this be passed?