In debugging my posted code here, http://vbaexpress.com/forum/showthread.php?t=9663 I've a problem with these lines
[VBA]
Num = CInt(Mid(F, Pos1 + 2, Pos2 - Pos1 - 2))
Mid(F, Pos1 + 2, Len(Num)) = Num + Rw
[/VBA]
When Num has a value of -2, Len(Num) = 4, which is throwing out the text replacement.