Hide rows AND checkboxes in that row with code/macro

Hi, I am so not a developer and everything code related I have learned online from forums like this so I hope someone can help me with this!

Problem: I have a header row with a checkbox (CheckBox1) and if ticked then it should unhide rows 2 to 4 below and if unticked it should hide them again. The problem is that rows 2 to 4 all have a checkbox as well and when the rows get hidden the checkbox remains and I can't work out how to hide it too!

Code I am currently using to hide rows:

Sub HideUnhideCORE()

Rows("2:4").Select
If Selection.EntireRow.Hidden = False Then
Selection.EntireRow.Hidden = True
Else
Selection.EntireRow.Hidden = False
End If
Range("$A$1").Select

End Sub

Can anyone help me amend this so it hides the checkboxes on row 2, 3 and 4 as well? Here's hoping! Thanks.