checkbox grouped

[Fyr]

I have 9 checkboxes grouped as "section".

If one checkbox is checked, i want to add it to my worksheet along with other values from textboxes.
Here is a script I came up with, but it breaks on line 1.

Private Sub CommandButton1_Click()
Sheets(s).Cells(Sheets(s).Range("A65536").End(xlUp).Row + 1, 1) = section & " - " & first & " " & last
    Range("A3:A46").Select
    ActiveWindow.SmallScroll Down:=-21
    Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A1").Select
End Sub

 

[pbornemeier]

If section, first and last are all controls on the form that your are working with try:

Sheets(s).Cells(Sheets(s).Range("A65536").End(xlUp).Row + 1, 1) = Me.section & " - " & Me.first & " " & Me.last

for your first row.

I do not understand what "value" you intend to get out the the 'section' frame which contains checkboxes