Error de monthview 424

al ejecutar el monthview me da error " 424" en el

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D9")) Is noting Then 'aquí me marca el error
UserForm1.Show
End If
End Sub

es office 2010 quiero que al acer click en la celda "D9 o N9" se abra el monthview1 pero me manda error 424 y me señala en amarillo lo que esta subrayado arriba por tu ayuda gracias en el montview tengo esta instrucción

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
ActiveCell.Value = MonthView1
UserForm1.Hide
End Sub

por tu atención gracias