Hallo,

tja, das ist irgendwie immer noch recht übersichtlich bei Dir, aber denn mußt Du hiermit Vorlieb nehmen, so geht's...

Dim objCheckBox As Excel.CheckBox
For Each objCheckBox In Sheet1.CheckBoxes
    With objCheckBox
         If .TopLeftCell.Column = 4 And .Value = xlOn Then _
            Call Sheet1.Cells(.TopLeftCell.Row, 1).Copy
    End With
Next

Gruß,