Unload Me
    Application.ScreenUpdating = False
    Workbooks.Add 1
    Columns("A").Select
    Selection.ColumnWidth = 200
    Range("A1").Select
    Selection.RowHeight = 400
    Range("A1").Value = TextBox1.Text
    ActiveSheet.PrintPreview
    ActiveWorkbook.Close savechanges:=False
    Application.ScreenUpdating = True