The bill is in the mail! <vbg

Glad you got it working.

icdoo wrote:

Dave you always save my A$$, Thanks for the solution I adapted it
nicely!!!!

For i = 1 To intRowCount

If IsError(ActiveCell.Offset(0, 2).Value) Then
ActiveCell.Offset(0, 2).Select
MyColumnNumber = ActiveCell.Row
MyColumnLetter = Mid(ActiveCell.Address, 2, (InStr(2,
ActiveCell.Address, "$")) - 2)
MsgBox "Error in Cell " & MyColumnLetter & MyColumnNumber & "
Remove Any Math Symbols and Re-Try"

Exit Sub
Else

If InStr((ActiveCell.Offset(0, 2).Value), batchnumber) Then
ActiveCell.Value = mapcell
End If
End If
ActiveCell.Offset(1, 0).Select
Next i

--
icdoo
------------------------------------------------------------------------
icdoo's Profile: http://www.excelforum.com/member.php...o&userid=27342
View this thread: http://www.excelforum.com/showthread...hreadid=497095

--

Dave Peterson