sorting a-z & z-a

Hi

I am trying to reverse sort some tables on 2 differtn worksheets
the first half works fine on sheet 1
but the other does not work on sheet5 eventlog sheet
just cannot see why it keeps given me errors when i run it

Range("h21") = ">just here "
Range(Cells(22, 8), Cells(42, 16)).Columns.Sort key1:=Range("h22:h31"), _
order1:=xlDescending, Header:=xlNo

Worksheets("Event Log").Range("a9") = ">Event Log "
ActiveWorkbook.Worksheets("Event Log").Range(Cells(10, 1), Cells(30, 11)).Columns.Sort key1:=ActiveWorkbook.Worksheets("Event Log").Range("a10:a30"), _
order1:=xlDescending, Header:=xlNo

Jan