I can't see why it should be doing that, so it's time to debug:

after the line:
If target.Offset(0, 1).Value < "" Then
add the following:
Stop
MsgBox "Target offset (0,1) contains what's between the pairs of xs:
xx" & target.Offset(0, 1).Value & "xx"
Try the code, when it stops, use F8 to step through the lines one by
one. You say there's nothing in that cell, so you might expect to see
'xxxx', however I suspect you'll see the likes of 'xx xx', that is a
space, in the cell.
Pressing F5 allows the macro to proceed as normal again.
Over to you.


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?userid=558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=135641