Private Sub TextBox1_Change()
TextBox1.Height = TextBox1.Height
' TextBox1.Width = 540
End Sub
Private Sub TextBox1_GotFocus()
TextBox1.Width = 540
If TextBox1 = "Please type notes here" Then
TextBox1 = ""
End If
End Sub
Private Sub TextBox1_LostFocus()
TextBox1.Height = TextBox1.Height
TextBox1.Width = 540
If TextBox1 = "" Then
TextBox1 = "Please type notes here"
End If
End Sub
Sub Workbook_BeforePrint(Cancel As Boolean)
If TextBox1 = "Please type notes here" Then
TextBox1.visible=false
End Sub