Private Sub TextBox1_Change()
ActiveCell = Replace(Me.TextBox1, Chr(13), "")
End Sub
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If UserForm1.Zoom = 100 Then
UserForm1.Zoom = 200
UserForm1.Width = Me.Width * 2
UserForm1.Height = Me.Height * 2
Else
UserForm1.Zoom = 100
UserForm1.Width = Me.Width / 2
UserForm1.Height = Me.Height / 2
End If
Cancel = True
End Sub
Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If Me.Zoom = 100 Then
Me.Zoom = 200
Me.Width = Me.Width * 2
Me.Height = Me.Height * 2
Else
Me.Zoom = 100
Me.Width = Me.Width / 2
Me.Height = Me.Height / 2
End If
End Sub