Afkrydsningsfelt, hvor man vha. Makro fjerner flueben

Prøv at uploade din fil.
og så velkommen til Eksperten..

Har du en mail
kan ikke helt se hvordan jeg skal oploade filen her i indlægget.

Min mail under min profil.

eller

Prøv at google vedr. Upload

Uddrag af kode:

Dim seq13(3) As String, seq14(3) As String, seq15(3) As String
Dim afkrydsNavn As String, x As Integer
Public Sub spørgsMål13()
    afkrydsNavn = Application.Caller
    indsætAfkrydsNavn afkrydsNavn, seq13
End Sub
Public Sub spørgsMål14()
    Stop
End Sub
Public Sub spørgsMål15()
    Stop
End Sub
Public Sub clearSeq()                              'HouseKeeping v/ny runde
    For x = 0 To 3
        seq13(x) = ""
        seq14(x) = ""
        seq15(x) = ""
    Next x
   
    Range("B4").Select
End Sub
Sub indsætAfkrydsNavn(navn As String, seq)
    For x = 0 To 2
        If seq(x) = "" Then
            If x < 2 Then
                seq(x) = navn
                Exit Sub
            Else
                ActiveSheet.Shapes(seq(1)).Select
                Selection.Value = xlOff
                seq(x - 1) = navn
            End If
        End If
    Next x
End Sub

Husk at lukke tråden.. ..