Thanks for the reply, but, No sir. I just paste it the wrong  way.. sorry for
that.. well i have this new code, but still it doesnt work. Still a run time
error.
Please help  me out..

Dim w As Worksheet
Set w = ThisWorkbook.Worksheets("GC Report")

If cbSortMonth.Value = "(ALL)" And obOrder = True And cbOrder.Value =
"Ascending" Then
w.Rows("8:50").sort key1:=w.Range("AL8"), Order1:=xlAscending
End If

What's wrong with it?