Hi Group,

Thanks for all help with my previous questions!
Here is another one;

Code below gives an error at the line: With
Sheets(1).............................
Is it not possible to write the range in this format when sorting?

Best Regards

CG Rosén

-------------------------------------------------------------------------------------

a = Application.WorksheetFunction.CountA(Sheets(1).Ran ge("A1:K1")) -2

With Sheets(1).Range(Cells(1, 3), Cells(1, a)) ERROR!!!!!!!!!

.Sort Key1:=Sheets(1).Range("C100"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight

End With