Run VBA-code after Private Sub Worksheet_SelectionChange(ByVal Target As Range)

[KlausW]

Hi,
can anyone help me get this VBA code to run when a code that starts with Private Sub Worksheet_SelectionChange(ByVal Target As Range) is run?

The vba codes are in the same sheet.

All help would be appreciated.

Best regards Klaus W

Sub macro1()

Static Passed As Boolean

Dim P$

If Target.Address <> "$A$42" Or Passed Then Exit Sub

Do

P = InputBox(vbLf & vbLf & "Indtast adgangskode for at ændre denne celle:", "Begrænset adgang")

If P = "" Then Target(1, 2).Select: Exit Sub

Loop Until P = "XXXXXXX"

Passed = True

End Sub

 

[Tupe77]

Hi Tube 77, as it should be, thank you. And to everyone else who has come up with ideas to solve my challenge. Thank you too. Good day to everyone from Klaus W in Denmark

Nice to hear we were able to help and thanks for the feedback!