"Babráltam egy kicsit" a pozicionálással. 

 

Redlac

 

15-ös sormagasságnál jó a jelölők távolsága. A B oszlopba teszi 1-től 2500 sorig, a csatolás a C oszlopba kerül.

 

 

Sub Jelolok()
    Dim sor As Integer, le As Long
    
    le = -15
    For sor = 1 To 5
        le = le + 15
        ActiveSheet.CheckBoxes.Add(55.5, le, 50, 17.25).Select
        With Selection
            .Name = "JL " & sor
            .Characters.Text = "JL " & sor
            .LinkedCell = "C" & sor
            .Display3DShading = True
        End With
    Next
End Sub

 

Az ActiveSheet.CheckBoxes.Add(55.5, le, 50, 17.25).Select sorban az 55.5 adja a lap bal szélétől-, a le változó a lap felső szélétől való távolságot, az 50 a jelölő szélességét, a 17.25 a magasságát.

A .Name = "JL " & sor elnevezi JL és az aktuális sor nevére (hivatkozási név), a .Characters.Text = "JL " & sor ugyanezt a nevet adja címnek. A .LinkedCell = "C" & sor mondja meg, hogy a csatolás az aktuális sor C oszlopában legyen.

 

Ha nem a B oszlopba akarod tenni, vagy az A oszlop szélesebb, mint az enyém, az 55.5-et írd át.