Making a textbox visible on meeting a condition...

[cal25]

I have a textbox on my form and want it to be linked to a cell say A7. When B7 < 40 (which is days calculated between 2 dates) the textbox becomes visible…

Seems so frustratingly simple but cannot get it to work... Thanks in advance...

Private Sub TextBox1_Change()

If Cell(A7) > 40 Then
ActiveSheet.Shapes("Textbox1").Visible = False
Else
ActiveSheet.Shapes("Textbox1").Visible = True
End If

End Sub

 

[Peter_SSs]

Thank you Peter, very much appreciated... It works a dream.

It certainly shows I have a lot to learn in terms of learning to use efficient code..

.. and providing the information requested.
Anyway, glad we got there in the end.
Thanks for letting us know.