Hey thanks for the help. Can someone look at this code - am I on th
right track or WAY off course?? I've never used a range variable an
appearantly haven't yet figured out the trick....

Private Sub findDR_Click()
Dim rngSort1 As Range, rngSort2 As Range, rngSort3 As Range

If ManualForm.o1_DR.Value Then
rngSort1 = "D2"
ElseIf ManualForm.o1_Date.Value Then
rngSort1 = "E2"
ElseIf ManualForm.o1_Trailer.Value Then
rngSort1 = "F2"
ElseIf ManualForm.o1_Company.Value Then
rngSort1 = "G2"
ElseIf ManualForm.o1_ULT.Value Then
rngSort1 = "H2"
ElseIf ManualForm.o1_Weight.Value Then
rngSort1 = "I2"
Else
MsgBox "You must select at least one catagory to be able t
sort.", vbOKOnly, "CTC"
Exit Sub
End If

If ManualForm.o2_DR.Value Then
rngSort2 = "D2"
ElseIf ManualForm.o2_Date.Value Then
rngSort2 = "E2"
ElseIf ManualForm.o2_Trailer.Value Then
rngSort2 = "F2"
ElseIf ManualForm.o2_Company.Value Then
rngSort2 = "G2"
ElseIf ManualForm.o2_ULT.Value Then
rngSort2 = "H2"
ElseIf ManualForm.o2_Weight.Value Then
rngSort2 = "I2"
Else
rngSort2 = rngSort1
End If

If ManualForm.o3_DR.Value Then
rngSort3 = "D2"
ElseIf ManualForm.o3_Date.Value Then
rngSort3 = "E2"
ElseIf ManualForm.o3_Trailer.Value Then
rngSort2 = "F2"
ElseIf ManualForm.o3_Company.Value Then
rngSort2 = "G2"
ElseIf ManualForm.o3_ULT.Value Then
rngSort2 = "H2"
ElseIf ManualForm.o3_Weight.Value Then
rngSort3 = "I2"
Else
rngSort3 = rngSort2
End If

Range("A:I").Sort key1:=rngSort1, _
key2:=rngSort2, _
key3:=rngSort3

End Su

--
Message posted from http://www.ExcelForum.com