Syntax for returning Optionbutton (Userform) caption (Error 438 with ctr.value)

If you use optionbuttons in a userform, and label15 is also in this userform

Private Sub Label15_Click()
  For Each ctr In Frame1.Controls
    If TypeName(ctr)="Optionbutton" and ctr.Value = True Then
      sheets(1).range("A3")=ctr.caption
      exit for
    End if
  Next
End Sub

If you use optionbuttons (Active-X-controls) in a sheet, and label15 is also in this sheet

Private Sub Label15_Click()
  For Each ctr In Frame1.Controls
    If TypeName(ctr)="Optionbutton" and ctr.Object.Value = True Then
      sheets(1).range("A3")=ctr.Object.caption
      exit for
    End if
  Next
End Sub