Concentrate on this line...

        If Cell.Value = 0 Then
VBA uses <> to indicate 'Not Equal To'...