One checkbox at a time

below is a snippet for a copy button to copy a specific cell depending on which checkbox is checked. Can anyone assist with adjusting it so only one checkbox can be checked at one time?

Thanks for any help you can give!

Public Sub CopyButton_Click()

if(CheckBox1.Value = true) then
    ActiveSheet.Range("A1").copy
end if

if(CheckBox2.Value = true) then
    ActiveSheet.Range("A2").copy
end if

'copy the chunk above for more check boxes

End Sub