Sub dis_enableSheet()
With Sheets("Sheet1")
If .Range("A2").Value = vbNullString Then
.Range("A2").Value = "This Sheet has been disabled as it has been superseded."
' .Buttons("Button 2").Enabled = False
.Shapes("Button 2").OLEFormat.Object.Enabled = False
.Buttons("Button 2").Font.ColorIndex = 16
Else
.Range("A2").Value = ""
.Buttons("Button 2").Enabled = True
.Buttons("Button 2").Font.ColorIndex = 1
End If
End With
End Sub