I wonder how did your code worked earlier.
Your code will work if there was only 1 error during
the For .. Next loop. In susequent errors error handler
is disabled and it will give the exact error you are getting.

Try modifying your code as under.

On Error Resume Next
For Each ticket In Range( ... ).Rows
With ticket
.columns(NATL).Value = CDbl(.columns(NATL).Value)
.columns(CNUM).Value = CDbl(.columns(CNUM).Value)
If Err < 0 Then
.Delete
Err.Clear
End If
End With
Next
On Error GoTo 0

Sharad

"CodeSponge" wrote in message
oups.com...
I started a new message because the google server won't let me post to
my other msg. this is going to be one of those days.

Tom,

I checked and its set to unhandled errors.
I'm getting confused because I havn't changed my enviroment.
All I've done lately is debug a mod on an unrelated project.
I guess there are other errors in the exicution too.
A usr reported that a split screen routine doesn't split the screen
correctly anymore.
Instead of splitting the data from the header on row one it splits it
to a row between 5000 & 6000 randomly. this is odd because its
spicificly split to row one.

I'm getting a head ache.