Excel - CONTAR HOJAS y MSGBOX

Estimados Colegas

Quisiera saber si me pueden ayudar en el siguiente problema:

Quiero contar cuantas hojas tengo en el archivo y me lo muestre en un MSGBOX pero no me resulta....

Esto es lo que tengo

Sub CONTAR_HOJAS ()

ContarHojas = ThisWorkbook.Worksheets.Count
x = MsgBox("Este archivo contiene " + ContarHojas + " ", vbInformation, "Atencion Usuario")

End sub

Por su atencion GRACIAS.

Saludos.

Sub CONTAR_HOJAS()

ContarHojas = ThisWorkbook.Worksheets.Count
MsgBox ("Este archivo contiene " & ContarHojas & " hojas")

End Sub

SCM

Basandome en tu misma logica:

Sub CONTAR_HOJAS()

ContarHojas = ThisWorkbook.Worksheets.Count
MsgBox "Este archivo contiene " & ContarHojas & " ", vbInformation, "Atencion Usuario"

End Sub

OJO, no es lo "ideal"

Abraham

Gracias por la ayuda pero ..........

Genero la MACRO y me dice que el resultado es

" Este archivo contiene 1 Hojas "

Siendo que tengo 5 hojas Visibles

gracias por su ayuda

Sub contar()
ContarHojas = ThisWorkbook.Worksheets.Count
x = MsgBox("Este archivo contiene " & ContarHojas & " Hojas ", vbInformation, "Atencion Usuario")
End Sub

Ya vi por que .. estaba pegando la MACRO en PERSONAL y se tiene que poner en THISWORKBOOK..

Gracias.