Hi Jrub
Try this code...let me know of issues.
Option Explicit
Sub Sort_Number()
Dim LR As Long
Dim LC As Long
Dim shtArray As Variant
Dim i As Long
shtArray = Array("SheetA", "SheetB", "SheetC")
For i = LBound(shtArray) To UBound(shtArray)
With Sheets(shtArray(i))
LR = .Cells.Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
LC = .Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
.Sort.SortFields.Add Key:=Range("C4:C" & LR) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With .Sort
.SetRange Range(Cells(4, 1), Cells(LR, LC))
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
.Range("A4").Formula = "1.00"
.Range("A5").Formula = "=IFERROR(IF(ISBLANK(B5),"""",A4+0.01),"""")"
.Range("A5").AutoFill Destination:=.Range("A5:A" & LR), Type:=xlFillDefault
End With
Next i
End Sub
Bookmarks