Problemas con mscomct2.ocx en VB de excel

Buenas tarde mi pregunta es la siguiente, tengo un formato en excel que utiliza un calendario para ingresar la fecha a través de un userform.. Cuando lo forme inicialmente utilice el calendar control 11.0, hace un par de días supe del nuevo control que viene en la version 2010 que es el monthview control 6.0 y decidí cambiarlo y me funciono correctamente... El problema sucedió cuando decidí ejecutarlo en otro equipo, que ya trae la misma version 2010, de primero no traía instalado el archivo mscomct2.ocx lo instale y se ejecuto correctamente, pero a la hora de ejecutar otros macros me marco error, los macro en los que me marco el error son

para guardar:

Sub guardardoc()
'
' guardardoc Macro
' Macro para guardar el documento nuevo
'
'
Range("A1:E1").Select

´AQUI ES DONDE MARCA EL ERROR

nbre = <strong style="font-size: 14px; line-height: 1.5em;">Format(Now, "dd-mm-yyyy")

ChDir "C:\pedidos almacen"
ruta = ThisWorkbook.Path
Sheets("pizzeria").Select
Range("A1").Select
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="c:\pedidos almacen" & "\" & "Requisicion " & Range("A1") & nbre & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:=ruta & "\" & "Requisicion " & Range("A1") & nbre & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
End Sub

y para mostrar hojas ocultas:

Sub mostrar_hojas_ocultas()
Application.ScreenUpdating = False

´AQUI ES DONDE MARCA EL ERROR
For Each N In Sheets

N.Visible = True
Next N
Application.ScreenUpdating = True
End Sub

Espero haberme explicado y lo mejor que me puedan ayudar