I need all shapes within certain columns to dissapear/apear upon the click of a button. (Because shapes can be moved to other columns I do not want to specify the shapes in my code)

Hiding/showing all shapes on the sheet I can do (cf. code below), but not for a specific range.

Dim Sh as Shape

With ActiveSheet
For Each Sh In ActiveSheet.Shapes
If Sh.Type = msoGroup Then 'only grouped shapes need to appear/dissapear
Sh.Visible = msoTrue '/msoFalse
End If
Next Sh
End With

I've searched all over google for possible solutions, but don't find anything :-/