I am running into an error in a workbook telling me that my code is too long. Rather than just taking the easy route and splitting the process between two different sub procedures, I was wondering if anyone had any ideas about consolidating the following code. Basically, this same code will appear about 26 times at this point. Thanks for the help in advance. If it would help to have the actual file, Let me know and I'll post it. - Charles

[vba]

For j = 2 To ws1.Cells(Rows.Count, 1).End(xlUp).Row()
If ws1.Cells(j, "J") = 1 Then
If ws1.Cells(j, "H") = "A. G. EDWARDS" Then
ws1.Cells(j, "K") = "TRADE"
End If
End If
If ws1.Cells(j, "K") = "TRADE" Then
If ws1.Cells(j, "I") = "U.S. AGENCY DEBENTURES" Then
ws1.Cells(j, "L") = 1
End If
End If
If ws1.Cells(j, "K") = "TRADE" Then
If ws1.Cells(j, "I") = "TAXABLE MUNICIPALS" Then
ws1.Cells(j, "L") = 2
End If
End If
If ws1.Cells(j, "K") = "TRADE" Then
If ws1.Cells(j, "I") = "COMMERCIAL PAPER - DISCOUNT" Then
ws1.Cells(j, "L") = 3
End If
End If
If ws1.Cells(j, "K") = "TRADE" Then
If ws1.Cells(j, "I") = "CORPORATE BONDS" Then
ws1.Cells(j, "L") = 4
End If
End If
If ws1.Cells(j, "K") = "TRADE" Then
If ws1.Cells(j, "I") = "U.S. AGENCY DISCOUNTS/STRIPS" Then
ws1.Cells(j, "L") = 5
End If
End If
If ws1.Cells(j, "K") = "TRADE" Then
If ws1.Cells(j, "I") = "Mortgages" Then
ws1.Cells(j, "L") = 6
End If
End If
If ws1.Cells(j, "K") = "TRADE" Then
If ws1.Cells(j, "I") = "MUNICIPAL BONDS" Then
ws1.Cells(j, "L") = 7
End If
End If
If ws1.Cells(j, "K") = "TRADE" Then
If ws1.Cells(j, "I") = "U.S. TREASURY BILLS" Then
ws1.Cells(j, "L") = 8
End If
End If
If ws1.Cells(j, "K") = "TRADE" Then
If ws1.Cells(j, "I") = "U.S. TREASURY NOTES/BONDS" Then
ws1.Cells(j, "L") = 9
End If
End If
If ws1.Cells(j, "K") = "TRADE" Then
If ws1.Cells(j, "I") = "VRDN" Then
ws1.Cells(j, "L") = 10
End If
End If
If ws1.Cells(j, "L") > 0 Then
If ws1.Cells(j, "D") > 0 Then
ws1.Cells(j, "M") = ws1.Cells(j, "D")
Else
ws1.Cells(j, "M") = ws1.Cells(j, "C")
End If
End If
If ws1.Cells(j, "M") >= 1000000 Then
ws1.Cells(j, "N") = "1"
End If

[/vba]