Name.Object (Error Object Required)

Here is my function code that prompts a user when they submit a form and have a specific checkbox marked. It returns as error "object required" on the activecell.offset line when i add Name.Caption in the inputbox. I want this function to work for all checkboxes and use the Caption value in the checkbox property.

Public Function CheckBox(Name As Variant)

Static Counter As Integer

Counter = Counter + 1

If Name = True Then

Name = MsgBox("Do you want a specific" & Chr(32) & Name.Caption & "?", vbYesNo)

If Name = vbYes Then

ActiveCell.Offset(0, Counter).Value = InputBox("Enter" & Chr(32) & Name.Caption, "E.g." & Name.Caption)

End If
End If


End Function

Sorry about that, I should have taken the time to read the rules. The error is "Run time error 424, object required. When i try to debug it brings me to line 7. The error comes when i add "...& Name.Caption & " (without the quotes).

Public Function CheckBox(Name As Variant)

Static Counter As Integer

Counter = Counter + 1

If Name = True Then

Name = MsgBox("Do you want a specific" & Chr(32) & Name.Caption & "?", vbYesNo)

If Name = vbYes Then

ActiveCell.Offset(0, Counter).Value = InputBox("Enter" & Chr(32) & Name.Caption, "E.g." & Name.Caption)

End If
End If


End Function