Activex Checkbox og dato stempel

Mit excel sheet indeholder 150 rækker med hver sin checkbox. Når jeg klikker i checkboxen ønsker jeg at der i samme række, menbi en anden kollonne automatisk bliver entered en blivende dags dato.

Jeg har prøvet med nedensteående VBA kode. Den virker på sin vis hvis jeg i stedet for If Cell.Value <> "" Then bruger If Cell.Value = True Then

MEN, den virker kun når jeg indtaster True som er relateret til checkboksen (skriver eller overskriver manuelt), ikke med hjælp fra macroen når jeg klikker i checkboxen.

Private Sub Worksheet_Change(ByVal Target As Range)
' Auto Date
Dim Cell As Range
For Each Cell In Target
    If Cell.Column = Range("A:A").Column Then
        If Cell.Value <> "" Then
            Cells(Cell.Row, "B").Value = Int(Now)
        Else
            Cells(Cell.Row, "B").Value = ""
        End If
    End If
Next Cell
End Sub