I can only use the code below once then it won`t fire the code again.

[Eric Penfold]

Also I would like to end sub when user presses Cancel how is this possible when it`s a range of cells in inputbox

Public Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Dim Rng As Range
Dim NoData As Boolean
Dim Cell As Range
Dim Text As Variant
               
            Set Rng = Application.InputBox( _
                Prompt:="Select the range to Delete", _
                  Title:="Select Range", _
                      Type:=8)
                Application.EnableEvents = False
                 Rng.EntireRow.Delete
                 Exit Sub
                 Application.EnableEvents = True
                 
        End Sub

 

[Eric Penfold]

This Line

  Application.EnableEvents = True

 

[Peter_SSs]

Can you upload a copy of your workbook (any sensitive data disguised or removed) to one of DropBox, OneDrive, Google Drive etc and provide a public share link here so we can take a look?
Your workbook seems to be behaving differently to mine and I have been unable to determine the difference through my questions.

 

[Eric Penfold]

Please send your email address so i could send it to you. I have never used the above sorry

 

[Peter_SSs]

Please send your email address so i could send it to you.

Unfortunately, that would be a breach of #4 of the Forum Rules regarding taking the question off-forum.

I have never used the above

Perhaps time to change that?

 

[Eric Penfold]

Ok thanks please take a look at the link below let me know if it worked

2022 Alton Back OrderT.xlsm

Shared with Dropbox

www.dropbox.com

 

[Peter_SSs]

Ok thanks please take a look at the link below let me know if it worked

Yes, that worked, thanks.

That workbook has yet another different Workbook_SheetBeforeDoubleClick code.

The End just before the End Sub line does nothing, as does the If Cancel = False Then line together with its matching End If line

Other than that, the code seems to basically be working for me and there was no triggering of the Workbook_SheetChange code from anything I tried in relation to double-clicking on any worksheet and selecting or cancelling when the Input Box did appear.

Can you spell out the steps that I need to take to cause the problem that you are having?

 

[Eric Penfold]

Yes, that worked, thanks.

That workbook has yet another different Workbook_SheetBeforeDoubleClick code.

The End just before the End Sub line does nothing, as does the If Cancel = False Then line together with its matching End If line

Other than that, the code seems to basically be working for me and there was no triggering of the Workbook_SheetChange code from anything I tried in relation to double-clicking on any worksheet and selecting or cancelling when the Input Box did appear.

Can you spell out the steps that I need to take to cause the problem that you are having?

Sorry i keep trying to find a answer at the same time i have people asking me why it not sorted yet. I think if you press cancel it will exit sub is that not right? Otherwise there is a error.

Every time I press Ok or Cancel in InputBox it runs the first code fine but still runs onto the second code. Because there is a trigger in second code which i can`t seem to stop working for this procedure.
See the trigger below

     If Target.Column = 1 Then
     Call Group_OrderNos
     End If

 

[Peter_SSs]

I'm afraid that I cannot reproduce your problem.