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?