crumbs - figured out what i needed to do...i think.
initially:
Public qn As Integer, check As String, category As String, variable As String, crita As String, critb As String, _
critc As String, op As String
then:
Public Sub CheckBox(ByVal qn)
check = "check" & CStr(qn)
category =...