Connecting Shapes with Arrowed Lines - Debugging help! - Code attached

I want to create a macro that connects arrowed lines from the shape described in A column to the shape described in B Column

where Column A is current state and B is the Target State

So A1 to B1
A2 to B2
A3 to B3......

As of right now I have a semi-working code

Please Login or Register  to view this content.

It keeps bugging out at

If Shp.TextFrame.Characters.Text = iTxtBoxVal Then

When ever I apply my other Macro to create the shapes from Column A and some times it bugs out randomly

Please Login or Register  to view this content.

Hi Snaybot,

Your errors only appear to be random, they are probably quite systematic. You are probably trying to obtain text from Shapes that do not support text, such as a line.

There are several ways to approach the problem. The simplest (but probably not the best code) is as follows (tested and working in Excel 2003):

Please Login or Register  to view this content.

Lewis

It works perfect thanks!