Clearing cells and check box with one click

I have a command clearing all the cells in my excel with one click. I want to enrich it with clearing also (deselecting) all the checkboxes. Is it possible to combine these two macros?

Something like this but that one is of course not correct:

 Range("G28:I28").Select
    Selection.ClearContents
    Range("G30:I30").Select
    Selection.ClearContents
    Range("F43:G45").Select
    Selection.ClearContents
    Range("F34:G34").Select
    Selection.ClearContents
    ActiveSheet.CheckBoxes.Value = False