Private Sub TextBox1_GotFocus()
If TextBox1 = "Please type notes here" Then
TextBox1 = ""
End If
End Sub
Private Sub TextBox1_LostFocus()
If TextBox1 = "" Then
TextBox1 = "Please type notes here"
End If
End Sub
I tried using an active x text box but I need it to auto expand down with more text and I couldn't get it to do that.
I tried a text box with those settings but it won't get any larger as more lines are added. The text is just pushed up out of view the more times you hit enter. I need it to expand so all text is visible.