Worksheet_Calculate() event is fired when ever an existing cell formula is
calculated or re-calculated or any cell values which affect the calculation
changes.

Please write this code under Worksheet_Activate() event. Since your code is
looking at changes to 1 column it is better to write the code in
Worksheet_Change(ByVal Target As Range) event with a filter on the Column;

Private Sub Worksheet_Change(ByVal Target As Range)

'If the code needs to be executed only for any changes in col 2
If Target.Column = 2

'Write your code here

End If
End Sub


If this post helps click Yes
---------------
Jacob Skaria