Good day,

I have the following code, which works fine but gives me the "out of
stack space error". Not being a programmer i am not sure how to solve
this problem. Could somebody please heeeeeelp.

Sub OnKTL()
Do Until ActiveCell.Offset(0, -7) = "" ' No more LCS part
numbers
If ActiveCell.Offset(0, -4) = "" Then ' Is Part on the KTL
ActiveCell.Offset(1, 0).Select ' No - Move 1 cell
down"
Else
If ActiveCell.Offset(0, 6) = "" Then ' Is there a GPS PO ?
ActiveCell = "No purchase order"
ActiveCell.Offset(1, 0).Select
OnKTL
Else
If ActiveCell.Offset(0, 7) = "" Then ' Is there a SAP PO ?
If ActiveCell.Offset(0, -5) < ActiveCell.Offset(0, -3) Then
ActiveCell = "LCS AI lower than PO AI"
ActiveCell.Offset(1, 0).Select
OnKTL
Else
If ActiveCell.Offset(0, -5) > ActiveCell.Offset(0, -3) Then
ActiveCell = "PO AI lower than LCS AI"
ActiveCell.Offset(1, 0).Select
OnKTL
Else
If ActiveCell.Offset(0, -5) = ActiveCell.Offset(0,
-3) Then ' Are the AI's the same
ActiveCell = "OK"
ActiveCell.Offset(1, 0).Select
OnKTL
End If
End If
End If
Else
If ActiveCell.Offset(0, -5) = ActiveCell.Offset(0, -3) Then
' Are the AI's the same
ActiveCell = "OK"
ActiveCell.Offset(1, 0).Select
OnKTL
Else
If ActiveCell.Offset(0, -5) < ActiveCell.Offset(0, -3) Then
ActiveCell = "LCS AI lower than PO AI"
ActiveCell.Offset(1, 0).Select
OnKTL
Else
If ActiveCell.Offset(0, -5) > ActiveCell.Offset(0, -3) Then
ActiveCell = "PO AI lower than LCS AI"
ActiveCell.Offset(1, 0).Select
OnKTL
Else
If ActiveCell.Offset(0, -5) = ActiveCell.Offset(0,
-3) Then ' Are the AI's the same
ActiveCell = "OK"
ActiveCell.Offset(1, 0).Select
OnKTL
End If
End If
End If
End If
End If
End If
End If
Loop
ActiveWorkbook.Save
Message
End Sub

Tempy

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!