Sorting column in new workbook before saving

[cortexnotion]

Hi All,

My code creates a new workbook which is working fine. I've added a line to sort column C in ascending order but it is not working. I'm thinking it has something to do with LRow being the sheet that has just been created?

Many thanks

LRow = wbnew.Sheets(1).Range("A" & Rows.Count).End(xlUp).Row

With wbnew
.Sheets(1).Range("A1").Value = ThisWorkbook.Sheets(1).Range("X1").Value
.Sheets(1).Range("B1").Value = ThisWorkbook.Sheets(1).Range("Y1").Value
.Sheets(1).Range("C1").Value = ThisWorkbook.Sheets(1).Range("B1").Value
.Sheets(1).Range("D1").Value = ThisWorkbook.Sheets(1).Range("A1").Value
.Sheets(1).Range("E1").Value = ThisWorkbook.Sheets(1).Range("K1").Value
.Sheets(1).Range("F1").Value = ThisWorkbook.Sheets(1).Range("G1").Value
.Sheets(1).Range("G1").Value = ThisWorkbook.Sheets(1).Range("I1").Value
.Sheets(1).Range("H1").Value = ThisWorkbook.Sheets(1).Range("T1").Value
.Sheets(1).Range("I1").Value = ThisWorkbook.Sheets(1).Range("U1").Value
.Sheets(1).Range("J1").Value = ThisWorkbook.Sheets(1).Range("L1").Value
.Sheets(1).Range("K1").Value = ThisWorkbook.Sheets(1).Range("O1").Value
.Sheets(1).Range("L1").Value = ThisWorkbook.Sheets(1).Range("V1").Value
.Sheets(1).Range("A2:L2").Resize(UBound(ArrOUT)).Value = ArrOUT
.Sheets(1).Range("A1:L1").Font.Bold = True
.Sheets(1).Columns("I:J").NumberFormat = "0"
.Sheets(1).Columns("A:L").EntireColumn.AutoFit
.Sheets(1).Columns("A:L").HorizontalAlignment = xlCenter
.Sheets(1).Name = SheetName
.Sheets(1).Range("A1:N" & LRow).Sort key1:=.Sheets(1).Range("C1:C" & LRow), _
order1:=xlAscending, Header:=xlYes
.SaveAs FileName:=ThisWorkbook.Path & "\" & SheetName & ".xlsx"
End With

 

[Fluff]

Try

.Sheets(1).Range("A1:N1").Sort key1:=.Sheets(1).Range("C1"), _
order1:=xlAscending, Header:=xlYes

 

[cortexnotion]

@Fluff, very much appreciated as always!

 

[Fluff]

Glad to help & thanks for the feedback