Indsætte et Tvunget valg

Private Sub Worksheet_Deactivate()

    If Not Range("A4").Text = "Type 1" Or Range("A4").Text = "Type 2" Then
        MsgBox "Husk at udfylde celle A4", vbOKOnly + vbInformation
        Cancel = True
        Sheets("hoved-side").Select '<-- Ark navn til rettes
        Range("A4").Activate
    End If

End Sub

Private Sub Worksheet_Deactivate()
'Den korte
    If Range("A4").Text = "Type 1" Or Range("A4").Text = "Type 2" Then
'Siden skifter hvis Type 1 elle Type 2 er valgt
    Else
'Ark1, celle A4 aktiveres
        Sheets("Ark1").Select '<-- Ark navn til rettes
        Range("A4").Activate
    End If
End Sub

Private Sub Worksheet_Deactivate()
'Med info boks
    If Range("A4").Text = "Type 1" Or Range("A4").Text = "Type 2" Then
'Siden skifter hvis Type 1 elle Type 2 er valgt
    Else
'Info boks
        MsgBox "Husk at vælge Type 1 eller Type 2.", vbOKOnly + vbInformation, "Bestillings Type."
        Cancel = True
'Ark1, celle A4 aktiveres
        Sheets("Ark1").Select '<-- Ark navn til rettes
        Range("A4").Activate
    End If
End Sub

Private Sub Worksheet_Deactivate()
'med valg
    If Range("A4").Text = "Type 1" Or Range("A4").Text = "Type 2" Then
'Siden skifter hvis Type 1 elle Type 2 er valgt
    Else
'Valg boks Type 1
        Svar1 = MsgBox("Vil du bruge: Type 1", vbYesNo + vbQuestion, "Bestillings type.")
            If Svar1 = vbYes Then
            Range("A4") = "Type 1"
            End If
'Type 1 er valgt. og siden skifter
        If Svar1 = vbNo Then
'Valg boks Type 2
            Svar2 = MsgBox("Vil du bruge: Type 2", vbYesNo + vbQuestion, "Bestillings type.")
            End If
        If Svar2 = vbYes Then
            Range("A4") = "Type 2"
            End If
'Type 2 er valgt. og siden skifter
        If Svar2 = vbNo Then
'Ingen valg, Ark1, celle A4 aktiveres
            Sheets("Ark1").Select '<-- Ark navn til rettes
            Range("A4").Activate
            End If
    End If
End Sub