Cuadro de texto con mensaje al error en macro
Hola a todos; tengo la siguiente sentencia que lo único que hace es volver visible una hoja y llevarme a ella, pero resulta que existe la posibilidad que se ejecute esta macro y la hoja aun no exista, entonces Excel saca un error de ejecución y debemos darle finalizar.
Me gustaría que antes que saga ese error, pudiese decírsele al usuario que ese hoja no ha sido creada. Es posible?
Sub Ir_Proy_1()
Application.ScreenUpdating = False
Worksheets("Proy_1").Visible = True
Sheets("Proy_1").Select
Application.ScreenUpdating = True
End Sub
Quedo atento a su valiosa ayuda..
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro actualizada
Sub Ir_Proy_1() Application.ScreenUpdating = False hoja = "Proy_1" For Each h In Sheets If h.Name = hoja Then existe = True Next If existe Then Worksheets(hoja).Visible = True Sheets(hoja).Select Else MsgBox "La hoja no ha sido creada", vbExclamation End If Application.ScreenUpdating = True End Sub
