Paul

That's great I can go to bed now

Thanks

Mick


wrote in message
...
FullName = InputBox(Message, Title, Default)
If FullName = "" Then Exit Sub ' Or display a MsgBox and do whatever.

HTH
Paul
--------------------------------------------------------------------------
------------------------------------
Be advised to back up your WorkBook before attempting to make changes.
--------------------------------------------------------------------------
------------------------------------
On Sat, 13 Sep 2003 01:59:47 +0100, "Mick"
wrote:

The code below deletes all enteries of a "patrol" in an excel
spreadsheet.
It does the job well other than can anybody suggest how I can stop it
from
entering a nil string if you click on Cancel as this deletes any blank
cell/row which is not what I need it to do, hence the DO NOT USE CANCEL
in
the message.

Thanks

Mick

Sub DeletePatrol()
'
' DeletePatrol Macro
' 12/09/2003 by Mick Southam
'
Application.ScreenUpdating = False
Dim Message, Title, Default, FullName
Title = "Delete Patrol from TRF file"
Message = "Please enter the full name of the patrol you wish to delete.
It
MUST be entered exactly as displayed in the TRF file i.e. Surname comma
space Firstname and each letter in the same case. DO NOT USE CANCEL"
Default = "Enter Name"
FullName = InputBox(Message, Title, Default)
Range("B1").Select
For Row = 1 To 2000
If ActiveCell = FullName Then
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.Offset(0, 1).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Next Row
Range("A1").Select
MsgBox "Patrol deleted"
Application.ScreenUpdating = True
End Sub