Hi there,



I'm trying to copy the value of several checkboxes to another worksheet.

This works basically all fine by using the code below

Sub EvaluateCB()
ActiveWorkbook.Worksheets("Survey").Select
Range("A1").Select
d = Worksheets("Sheet1").CheckBox1.Value
Selection = d
End Sub


But, as there are about 40 checkboxes I wonder whether there is a way to do
this all automatically, i.e. by some for loop going through all the
checkboxes.

As I am a complete rookie in Excel I appreciate any hint / suggestions.


Many thanks,



Thiery