Hello,
I have sort Code
The odd thing is, this doesn't throw an error, it just doesn't work. However if I change this line:
to say...
It works fine. I'm so confused, am I missing something simple?
Thanks
I have sort Code
Code:
Dim LastRow3 As String
Dim Col3 As Long
Col3 = 2
LastRow3 = FindLastRow(Col3)
Range("B7:i" + LastRow3).Sort Key1:=Range("B7"), Order1:=xlAscending, Key2:=Range("B8"), Order2:=xlDescending
Function FindLastRow(ByVal Col As Integer) As Long
FindLastRow = Cells(Rows.Count, Col).End(xlUp).Row
End Function
Code:
LastRow3 = FindLastRow(Col3)
Code:
LastRow3 = 200
Thanks