Ayuda con unos macros que estoy trabajando en Excel

Hola. Estoy usando unos macros en un archivo de excel. Al ejecutarlo me aparece: "error '13' en tiempo de ejecución. No coinciden los tipos"

En ThisWorkbook tengo lo siguientes códigos:

1) mensaje de bienvenida al abrir el libro

2) mensaje de salida al cerrar el libro

3) una macro que me devuelva a la hoja1 o de inicio ctrl+r

4) una macro en la cual visualice todas las hojas del libro al presionar ctrl+m

Podrían ayudarme a saber que error estoy cometiendo? Mil Gracias!!!

1)

Private Sub Workbook_Open()
MsgBox "Aplicación diseñada por ND Janet Santiago Ríos", vbInformation + vbOKOnly, "Valoración del estado nutricional"
Sheets(Hoja1).Select
Range("a1").Select
End Sub

2)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Gracias por utilizar esta aplicación! Comentarios a: [email protected]", vbInformation + vbOKOnly, "Valoración del estado nutricional"
End Sub

4)

Sub MenúHojas()
With Application.CommandBars("Workbook Tabs").Controls(16)
If VBA.Right(.Caption, 37) = "..." Then
.Execute
Else
.Parent.ShowPopup
End If
End With
End Sub

3)

Sub Regresar_Menú()
'
' Regresar_Menú Macro
' regresa a la página inicial/menú del libro
'
' Acceso directo: CTRL+m
'
Sheets("Valoración estado nutricional").Select
End Sub