And the error is where ?
As a text file, it is ~56K, all in one routine, but it looks like you need
to look at using arrays and process in a loop, then you would have a much
shorter routine.

Dim xData(1 to 36?) as long
'Then assign values

for i=1 to 36
....etc

NickHK

wrote in message
ups.com...
here is my code. I hope it isn't too large for this post.

Sub sort_WC()
Dim wscost As Worksheet
Dim wscostsort As Worksheet

Dim x As Long
Dim lrow1 As Long
Dim cnt As Long
Dim xjan04 As Long
Dim xfeb04 As Long
Dim xmar04 As Long
Dim xapr04 As Long
Dim xmay04 As Long
Dim xjun04 As Long
Dim xjul04 As Long
Dim xaug04 As Long
----------- CUT --------------