I am trying to link several cells on different worksheets
to one single cell using a Subroutine. It works for a
couple of links but when there is more then about 10 links
the Subroutine won't paste it into the cell and it errors
with "Error 1004, Application defined or Object defined
error". any help?

PS this is the problematic Code.

MyString = Cells(Row, Col).Formula
MyString = Replace(MyString, SheetName1, "") 'Remove
missing link
MyString = Replace(MyString, "++", "+")
MyString = Replace(MyString, "=+", "=")
If MyString = "=" Then MyString = ""
Cells(Row, Col).Formula = MyString