Erreur d'exécution 9

Bonjour à vous tous,

Depuis quelques temps j'ai un souci avec la formule suivante. Placé dans ThisWorkbook. J'ai à chaque ouverture du classeur l'erreur suivante :
Erreur d'exécution '9'
L'indice n'appartient pas à la sélection...

Quelqu'un pourrait il SVP me venir en aide. Merci.

Option Explicit
Dim Nom
Dim x


Private Sub Workbook_Open()

x = MonthName(Month(Date))

MsgBox x

Nom = Sheets("Calendrier").Range("B2").Value
If Nom = "Personne" Then
MsgBox "Il n'y a pas d'anniversaire à souhaiter aujourd'hui. ", vbInformation, "Anniversaire:"

With Sheets(MonthName(Month(Date)))
.Visible = True
.Activate
End With
Exit Sub
Else
MsgBox "Nous sommes le " & Date & " et s'est l'anniversaire de :" & Nom, vbInformation, "Anniversaire:"
End If
With Sheets(MonthName(Month(Date)))
.Visible = True
.Activate
End With

End Sub

zeltron24