a simple example is below (you'll need a UserForm with a button named as below, or adapt to your own purposes): -
Private Sub UserForm_Initialize()
Me.CommandButton1.Visible = Sheet1.Range("A1").Value
End Sub
Edit: - note you might need an error-trap to make sure the value in the cell is True or False, otherwise you'll get an error.
This message was edited by Mudface on 2002-10-01 10:28