Getting run-time error 1004: method 'undo' of object '_application' failed

Hi friends,

I want to restrict the manual entries in column ‘A’. I’m getting run-time error 1004: method ‘undo’ of object ‘_application’ failed

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

'Restrict entry in column A

If Target.Row < 2 Then
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
Exit Sub
ElseIf Target.Column = 1 Then
Application.Undo
MsgBox "Sorry! Please select title first. The PRN will be retrieve automatically.", 64
Selection.Offset(, 1).Select
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
Exit Sub
End If
    
End Sub

Any help will be highly appreciated.

Thanking you in anticipation.

I don't get that error when I run your code. I did however notice something else...you have ScreenUpdating and EnableEvents set to true twice, the 1st ones should be set to false. Also, Calculation is set to automatic twice, the 1st one should be manual.