Extended code, now some part doesn't work

[Bandito1]

Hi all,

I made some changed to my code but now some part doesn't work;

Original code;

'Place the date of today in column (O) when data is entered in column (N)
            If (Target.Count = 1) Then
            Application.EnableEvents = False
                If (Not Intersect(Target, Me.Range("N:N")) Is Nothing) Then
                    If Target = vbNullString Then
                        Target.Offset(0, 1) = vbNullString
                    Else
                        Target.Offset(0, 1) = Date
                   End If
                End If
            End If
            Application.EnableEvents = True

The date of today is placed in the column O when data is entered in column N

Now i changed it to;

'Place the date of today in column (O) when data is entered in column (N)
            If (Target.Count = 1) Then
            Application.EnableEvents = False
                If (Not Intersect(Target, Me.Range("N:N")) Is Nothing) Then
                    If Target = vbNullString Then
                        Target.Offset(0, 1) = vbNullString
                    Else
                        Target.Offset(0, 1) = Date
                With Medicinereturns
                .lblProductcodeR = Cells(Target.Row, "B")
                .lblBatchnumberR = Cells(Target.Row, "A")
                .lblDepartmentR = "Medicine"
                .lblReviewerR.Caption = Cells(Target.Row, "F")
                .txtStDate = Format(Now(), "dd/mmm/yy")
                .Show
                End With
                    End If
                End If
            End If
            Application.EnableEvents = True

The code works but now the date isn't placed in column O when i enter date in N

Someone can find out why that isn't working anymore?

 

[Bandito1]

Never mind, noticed that it works after a restart of my excell..