Slight alteration/addition to my VBA code needed.

Hi @ danbates

You can try adding this line:

.
.
For Each cell In Target
Jump:
    If Not Intersect(cell, Range("G:G")) Is Nothing And cell <> "" Then
.
.

And changing this:

.
.
If Oops Then
       'MsgBox "Incorrect Password", vbCritical, "Palletiser Operator"
       Answer = MsgBox("Incorrect Password", vbRetryCancel + vbCritical, "Palletiser Operator")
       If answer = 4 Then GoTo Jump
       cell = ""
End If
.
.

Perhaps you need to Dim the variable Answer as integer