I have been using this forum for years to successfully answer my own queries, but have never posted anything. I think I may have inadvertantly edited someone else's post instead of posting my own reply, apologies. This is what I intended to post:-

'To simply toggle a shape's visibility

Sub ToggleShape ()
    ActiveSheet.Shapes("MyShape").Visible = not ActiveSheet.Shapes("MyShape").Visible
End Sub

David