HI Neil,

Instead of hard cell references you could try naming them.
On the menu bar goto: Insert-Name-Define
You could define a name for the error cell. Lets say 'ErrCell'.
You could then use the reference of this name in your code.
Sheet4.Range("ErrCell").Value

Regards,
Jayant