Pop-up text boxes based on cell values then disappeared after preset time

Hi,
I am looking for solution on this Pop-up text boxes based on cell values then disappeared after preset time.


Thanks

I don't know what events you have that will trigger anything, but use whatever trigger you have to run this:

Private Sub ShowTB()
Dim ws As Worksheet
Set ws = Sheets("Sheet1")
Start = Timer
PauseTime = 60
If ws.[B3].Value = 1 Then
Do While Timer < Start + PauseTime
ws.Shapes("TextBox 1").Visible = msoTrue
DoEvents ' Yield to other processes.
Loop
ws.Shapes("TextBox 1").Visible = msoFalse
End If

End Sub

For me you place the below macro to sheet1 module :

Please Login or Register  to view this content.

now wait time is 5 seconds, u can change as u want.

Hello,
I try boths, it seems I could not get it working.
1. First I copy to code to sheet1.
2. I remove "1" from cell B2.
3. Textbox 1 is still showed unless I click B1. Can textbox1 be hidden without clicking a cell?
4. Once textbox1 is hidden, I type in a "1" in B1. Textbox1 does not show up.

The reason I am doing it is start a blank cell B with textbox1 hidden. If I enter a 1, then the textbox
will pop up to give message to read for specified time, then automaticly hiding the textbox1 without
clicking any key or cell to activate the marco. The textbox1 should be hide and unhide, when B1 is blank
or have "1" or speficifed value respectively.

Any thought?

Thanks