This is only the Fourth Time I ever worked with Excel, so please excuse my
ignorance.

I have four columns I am creating in a new WorkBook.

Two have very long descriptions and look terrible. I come from a huge
Worksheet so I am creating a more manageable new WorkBook.

My AutoFit is not working?

Any body know what I am doing wrong. Part of my exisiting code is from the
users group already.

Here is my code.

Dim wkst As Worksheet ' Current Sheet
Dim wb As Workbook
Dim wslb As Worksheet ' Work Sheet
Dim rng As Range
Dim SelCol As String
Dim ColNum As Long

Set wkst = ActiveSheet

SelCol = InputBox("Comment Please:!")
ColNum = Columns(SelCol & ":" & SelCol).Column
SelCol = "A1," & SelCol & "1"

Set wb = Workbooks.Add(1)
Set wslb = wb.Worksheets(1)

With wkst
If .AutoFilterMode Then .AutoFilterMode = False
Set rng = .Range("A1").CurrentRegion
With rng
.AutoFilter Field:=ColNum, Criteria1:="<"
.Columns(ColNum).Copy wslb.Columns(1).Cells(1)
.Columns(2).Copy wslb.Columns(2).Cells(1)
.Columns(254).Copy wslb.Columns(3).Cells(1)
End With
End With

wslb.Range("A1:E1").Columns.AutoFit * AutoFit Not Working

Thanks to the Group

J. Q.