I would like to make an option button visible 20 seconds after making it
invisible. Any ideas?

See application.Ontime

http://www.cpearson.com/excel/ontime.htm
Chip Pearson's page on this.

--
Regards,
Tom Ogilvy


"Sandy" wrote in message
...
I would like to make an option button visible 20 seconds after making it
invisible. Any ideas?

Looked where you suggested, I think I'm on the right lines but can't get
this to work. It's in vba.

Private sub ScoreAnswers()

"other code"

optAdd.Visible = False
optSubtract.Visible = False
optMultiply.Visible = False
optDivide.Visible = False
optAny.Visible = False

Application.OnTime Now + TimeValue("00:00:20"), "OptVisible"

End Sub

Private sub OptVisible()
optAdd.Visible = True
optSubtract.Visible = True
optMultiply.Visible = True
optDivide.Visible = True
optAny.Visible = True
End Sub

"Tom Ogilvy" wrote in message
...
See application.Ontime

http://www.cpearson.com/excel/ontime.htm
Chip Pearson's page on this.

--
Regards,
Tom Ogilvy


"Sandy" wrote in message
...
I would like to make an option button visible 20 seconds after making it
invisible. Any ideas?

What error are you getting? Optvisible not found? If so, make it public
instead of private. Make sure it is in a general module and not in a sheet
module or the ThisWorkbook module or in a Userform module.

--
Regards,
Tom Ogilvy

"Sandy" wrote in message
...
Looked where you suggested, I think I'm on the right lines but can't get
this to work. It's in vba.

Private sub ScoreAnswers()

"other code"

optAdd.Visible = False
optSubtract.Visible = False
optMultiply.Visible = False
optDivide.Visible = False
optAny.Visible = False

Application.OnTime Now + TimeValue("00:00:20"), "OptVisible"

End Sub

Private sub OptVisible()
optAdd.Visible = True
optSubtract.Visible = True
optMultiply.Visible = True
optDivide.Visible = True
optAny.Visible = True
End Sub

"Tom Ogilvy" wrote in message
...
See application.Ontime

http://www.cpearson.com/excel/ontime.htm
Chip Pearson's page on this.

--
Regards,
Tom Ogilvy


"Sandy" wrote in message
...
I would like to make an option button visible 20 seconds after making
it
invisible. Any ideas?

Not sure what error you were getting but....

I tried your basic code and got a "Object not found" error.

I added a refference to the Worksheet object and it worked.

Private Sub ScoreAnswers()

Worksheets("Sheet1").OptionButton1.Visible = False
Worksheets("Sheet1").OptionButton2.Visible = False

Application.OnTime Now + TimeValue("00:00:10"), "OptVisible"

End Sub


Private Sub OptVisible()

Worksheets("Sheet1").OptionButton1.Visible = True
Worksheets("Sheet1").OptionButton2.Visible = True

End Sub