Or perhaps you are not clever enough for your own good - the buttons should be Ribbon buttons but that is a whole other ball game.
I'm not sure how you created the 'buttons' on the sheet but I'm hoping they aren't regular boxes of the same type we have been working with. If this is the case, this change to the code should work
Code:
For Each aCtl In Me.frameMarking.Controls
For Each aShape In aSheet.Shapes
If aShape.Type = 1 Then
If aShape.Title = aCtl.Tag Then
aShape.Visible = aCtl
End If
End If
Next aShape
Next aCtl
If that doesn't work, you will need to post your workbook so I can see how your buttons differ from the labels.