econ wrote:
Hi,

This macro has been developed using suggestions and macros by others, and it
does most of what I want, except...

The else portion should simply exit the macro, but what it actaully does is
carry on as if the user clicked yes. Does anyone have a solution for me? Many
thanks...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
'D.McRitchie, 2007-05-11, not posted
ActiveSheet.Unprotect
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Are you sure you want to insert a new row ?" ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "Inserting a New Row" ' Define title.
Help = "DEMO.HLP" ' Define Help file.
Ctxt = 1000 ' Define topic
' context.
' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes"
'
Cancel = True
Target.Offset(0).EntireRow.Insert
Target.Offset(-2).EntireRow.Copy Target.Offset(-2).EntireRow
On Error Resume Next
Target.Offset(-1).EntireRow.SpecialCells(xlConstants).ClearConten ts
On Error GoTo 0
Else ' User chose No.
MyString = "No" 'Don't do anything.
End If
ActiveCell.Offset(-1).Select
ActiveCell.EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Activate
ActiveSheet.Paste
Application.CutCopyMode = False

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub


Add in:

Exit Sub

Right after:

MyString = "No"

(Although I wonder why you would want to fill the "MyString" with "No"
and not use it at all anymore, so I probably would have put "Exit Sub"
right after "Else".)

CoRrRan