Try changing your code to this:

Sub ConfirmIssuesDelete()
Dim Prompt, Buttons, Title, Help, Ctxt, Response, MyString

Prompt = "Do you REALLY want to delete this row?" ' Message.
Buttons = vbYesNo + vbCritical + vbDefaultButton1 ' Buttons.
Title = "Whoa!" ' Title.
Help = "D:\DEMO.TXT" ' Define Help file.
Ctxt = 1000 ' Define topic

If MsgBox(Prompt, Buttons, Title, Help, Ctxt) = vbYes Then
WhereWasI = (Selection.Address)
Selection.EntireRow.Delete
IssuesDataRangeFormat
Range(WhereWasI).Select
Else
Exit Sub
End If


Does that help?

***********
Regards,
Ron

XL2002, WinXP-Pro


"Peter Rooney" wrote:

> Good afternoon, all!
>
> Apologies for those non UK residents who didn't get the "Little Britain"
> joke...
>
> Can anyone see the deliberate error with this code - no matter what button I
> click, it always processes the vbYes option. Response returns "7" when i
> click "No" and "6" when I click "Yes".
>
> All help gratefuly received! :-)
>
> Sub ConfirmIssuesDelete()
> Dim Prompt, Buttons, Title, Help, Ctxt, Response, MyString
>
> Prompt = "Do you REALLY want to delete this row?" ' Message.
> Buttons = vbYesNo + vbCritical + vbDefaultButton1 ' Buttons.
> Title = "Whoa!" ' Title.
> Help = "D:\DEMO.TXT" ' Define Help file.
> Ctxt = 1000 ' Define topic
> Response = MsgBox(Prompt, Buttons, Title, Help, Ctxt)
> MsgBox (Response)
> If Response = vbYes Then
> WhereWasI = (Selection.Address)
> Selection.EntireRow.Delete
> IssuesDataRangeFormat
> Range(WhereWasI).Select
> Else
> Exit Sub
> End If
> End Sub