Hi Mile-O-Phile,
It now works great.:D
I added a bit to the code you gave, not sure if its the way i should have but it works anyway.
It now Looks like this:-
Private Sub DeleteActivity_Click()
On Error GoTo Err_DeleteActivity_Click
If Me.List3.Column(11) = vbNullString Then
Dim...