>>257 Sub CreateButtons() Set baseaddress = ActiveSheet.Range("D5") For i = 1 To 10 CreateButton baseaddress.Cells(i, 1), True CreateButton baseaddress.Cells(i, 2), False Next End Sub Sub CreateButton(cell, check) x = cell.Left + 4 y = cell.Top + 2 w = cell.Cells(2, 2).Left - x - 4 h = cell.Cells(2, 2).Top - y - 2 Set btn = ActiveSheet.Buttons.Add(x, y, w, h) btn.Text = "" btn.Name = "chkbtn_" & cell.Row If check Then btn.OnAction = "CheckButton_Click" Else btn.OnAction = "ClearButton_Click" End If End Sub
