Private Sub ボタン5_Click()
Dim WS As Worksheet
Set WS = Worksheets("prod")

WS.Shapes("text01").Visible = false

End Sub