Hvis svar er No så skal det oprendelige tal sættes end

Dim oprVærdi, chOn As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        oprVærdi = Target.Value
        chOn = True
End Sub
Private Sub worksheet_change(ByVal Target As Excel.Range)
    If Target.Column = 2 And (Target.Offset(0, 9) <> "Tekst" Or Target.Offset(0, 10) <> "Ekstra udstyr") Then
        strConveyorType = Target.Offset(0, 9)
            test1 = Target
           
        If chOn = True Then
            svar = MsgBox("Er det Ok at antal er ændret", vbYesNo, "Antal er ændret")
        End If
           
        If svar = 7 Then
            chOn = False
            Target.Value = oprVærdi
        End If
    End If
End Sub

Hvor skal "Dim oprVærdi, chOn As Boolean" sættes end ?

Nå jeg svare ja er alt OK. Men nå jeg svare nej bliver MsgBox stående endtil jeg svare Ja så bliver tallet i cellen fjernet.

Allerøverst i koden - så de bliver - altså "synlige" i alle Sub's - som jeg har vist i min kode.

Nu kommer MsgBox slet ikke frem tallet bliver bare overført

Hvis "If chOn = True Then" bliver ændret til "If chOn <> True Then" kommer MsgBox frem og Ja svar virker. Men nej svar virker ikke MsgBox forsvinder først når man trykker Ja.

Du er velkommen til at sende din .xls-fil til: pb@supertekst-it.dk
- så jeg kan se hele koden...

Eller smid koden herind. Har kigget lidt med på sidelinjen, og Supertekst´s kode virker perfekt hos mig, så jeg er da lidt nysgerrig over hvad der driller i din kode

Lidt misforståelse ryddet af vejen - så fungerer den viste kode hos SanderJL.