Sub qq()
    With ActiveSheet.Shapes.Range(Array("Group 6"))
    .Visible = Not .Visible
    End With
End Sub

Sub qqq()
    With ActiveSheet.Shapes.Range(Array("Прямоугольник: скругленные углы 1", "Прямоугольник: скругленные углы 3"))
    .Visible = Not .Visible
    End With
End Sub

Sub Макрос1()
    With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
        "C:\146547 Sl.htm", "Sheet1", "$C$5:$L$28", _
        xlHtmlStatic, "146547 Sl_14854", "")
        .Publish (True)
        .AutoRepublish = False
    End With
End Sub