Number Ascending

[Eric Penfold]

Try to make number ascending in a column gets to

        .AutoFilter Field:=iCol, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
      :=xlSortNormal

The Error says "Object dosen`t support this property or method" ??

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    With Target.Font
        .Name = "Calibri"
        .Size = 11
        Selection.RowHeight = 15
        Selection.EntireColumn.AutoFit
        
Dim lo As ListObject
Dim iCol As Long

Set lo = Sheet2.ListObjects("Frost_Table")
 
 iCol = lo.ListColumns("Part No").Index
        
        .AutoFilter Field:=iCol, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
      :=xlSortNormal
        
End With
    


End Sub

 

[Joe4]

Sorting is not an option under "Target.Font"

    With Target.Font

It cannot be contained with the that "With ... End With" block.

 

[Eric Penfold]

Ok I`ve altered it but now it`s saying Error 448 "Named argument not found" in the same part of the code.

 

[Joe4]

Ok I`ve altered it but now it`s saying Error 448 "Named argument not found" in the same part of the code.

Sorry, I have been out of town for a few days.

Do you have a good understanding on how to use WITH clauses?
If you turn on your Macro Recorder and record yourself performing the steps you want manually, you will be able to get most of the VBA code that you need to plug into your current procedure.

If you are still having issues, please post your altered code.