Mejorar código checkbox control active x

Como puedo optimizar este código

Private Sub CreditoNovacion_Click()
If CreditoNovacion = True Then
Range("f16").Value = "X"
CreditoOriginal = False
Range("f15").Value = ""
CreditoRefinanciamiento = False
Range("o15").Value = ""
creditoRestructura = False
Range("o16").Value = ""
End If

End Sub

Private Sub CreditoOriginal_Click()
If CreditoOriginal = True Then
Range("f15").Value = "X"
CreditoNovacion = False
Range("f16").Value = ""
CreditoRefinanciamiento = False
Range("o15").Value = ""
creditoRestructura = False
Range("o16").Value = ""
End If
End Sub

Private Sub CreditoRefinanciamiento_Click()
If CreditoRefinanciamiento = True Then
Range("o15").Value = "X"
CreditoOriginal = False
Range("f15").Value = ""
CreditoNovacion = False
Range("f16").Value = ""
creditoRestructura = False
Range("o16").Value = ""
End If
End Sub

Private Sub creditoRestructura_Click()
If creditoRestructura = True Then
Range("o16").Value = "X"
CreditoOriginal = False
Range("f15").Value = ""
CreditoRefinanciamiento = False
Range("o15").Value = ""
CreditoNovacion = False
Range("f16").Value = ""
End If
End Sub