Hi all,
Could somebody look at the following code and, essentially, make it work
please?
Private Sub CommandButton2_Click()
Dim Target As Range
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target.Me.Range("L4:L10000")) Is Nothing Then
With Target
If .Value = "P" Then
.Offset(0, 1).Value = TextBox1.Text 'copies text box data to cell
End If
End With
'Cancel = True
End If

TIA

--
Traa Dy Liooar

Jock