Excel Calendar

[Pauljj]

I am using the already buildt calendar option, which was working for me and seems to have stopped now and I wondered if anyone can see what might be wrong

Part of the worksheet code is


Private Sub worksheet_selectionchange(ByVal target As Excel.range)

If target.Address(0, 0) = "B3" Then

: ShowIt

range("C12:I56").Interior.ColorIndex = xlNone

range("M12:M56").ClearContents
range("O12:O56").ClearContents
range("Q12:Q56").ClearContents
range("S12:S56").ClearContents
range("U12:U56").ClearContents
range("W12:W56").ClearContents
range("Y12:Y56").ClearContents

End If


The above bit seems to be where the problem is as when I go to the macro ShowIt

which is


Sub ShowIt()

Calendar.Show

End Sub


When i run that, the calendar shows. So does anyone know why, when I click on cell B3 all the formatting changes as it should be it doesn't go to 'Showit' ???


Very confused

 

[Pauljj]

Any ideas please ?