Userform forsvinder efter kørt kode

Bruger office 2010.

På mit excelark startes en Userform via en knap på excelarket.
På userformen er der 5-10 forskellige optionsbutton.
Når der trykkes på Userformens OK knap afvikles den options som er valgt, via Ok-knappens kode som indeholder en If for hver optionbutton.

Når f.eks. kode som vist herunder afspilles er der ingen problem hvis If optSletMarkLørSøn ....  afspilles.
Men hvis en af de to andre Ifér hvor der er indsat kod afspilles forsvinder min Useform fra skærmen efter at der øverst på Userformen er blevet meddelt (Svarer ikke)
Do løkken kører ca. 7000 celler igennem.

Er der mon en VBA kyndig som lige kan hjælpe hvorfor min Userform forsvinder eller hvad kan der gøres.

Private Sub cmdOK_Click()
    Application.ScreenUpdating = False

  If optMarkerSøndag = True Then
    Range("F5:EYW206").Select
      With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ThemeColor = 1
        .TintAndShade = -0.249946592608417
        .Weight = xlThin
      End With
   
    Range("F4").Select
   
    Do
      sAdresse = ActiveCell.Address
      If ActiveCell.Value = "Sø" Then
        sKol = ActiveCell.Address(ColumnAbsolute:=False)
        sKol = Left(sKol, InStr(sKol, "$") - 1)
        Range(sKol & "5" & ":" & sKol & "206").Select
        With Selection.Borders(xlEdgeRight)
          .LineStyle = xlContinuous
          .ThemeColor = 4
          .TintAndShade = 0.399945066682943
          .Weight = xlThin
        End With
        Range(sAdresse).Select
      End If
      ActiveCell.Offset(0, 1).Select
    Loop Until ActiveCell = ""
  End If
 
 
If optMarkerLørSøndag = True Then
  Range("F4").Select
  Do
    sAdresse = ActiveCell.Address
    If ActiveCell.Value = "Lø" Then
      sKol = ActiveCell.Address(ColumnAbsolute:=False)
      sKol = Left(sKol, InStr(sKol, "$") - 1)
      Range(sKol & "5" & ":" & sKol & "206").Select
      With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.399945066682943
        .Weight = xlThin
      End With
      Range(sAdresse).Select
    ElseIf ActiveCell = "Sø" Then
      sKol = ActiveCell.Address(ColumnAbsolute:=False)
      sKol = Left(sKol, InStr(sKol, "$") - 1)
      Range(sKol & "5" & ":" & sKol & "206").Select
      With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.399945066682943
        .Weight = xlThin
      End With
      Range(sAdresse).Select
    End If
      ActiveCell.Offset(0, 1).Select
  Loop Until ActiveCell = ""
End If

 
If optSletMarkLørSøn = True Then
  Range("F5:EYW206").Select
    With Selection.Borders(xlInsideVertical)
      .LineStyle = xlContinuous
      .ThemeColor = 1
      .TintAndShade = -0.249946592608417
      .Weight = xlThin
    End With
End If
 
 
If optMarkSærlHelDag = True Then

End If

If optSletMarkSærlHelDag = True Then

End If
 
 
If optGrupperAns = True Then

End If

If optSletGrupperAns = True Then

End If

  Range("F6").Select
  Application.ScreenUpdating = True
End Sub