エクセル　リストから自動変換による翻訳（マクロ） （投稿ID : h7ez9）

初めまして、以前、マクロを作っていただいたのですが、今まで使えていたのに壊れてしまいました。実効値エラー　１３　型が一致しませんとでます。

修復できるかたを探しています。

ちなみに、翻訳対象の文章を１万行程度いれるのですが、これまでの文章は今まで通りできます。
新しい文章は”#NAME?”などが入っているのですが、これらの文章がデバックの原因とかはありえるのでしょうか。

以下がマクロです。この程度ならお会いすれば修復可能というかたご連絡お願いします。
直せればメールでも可能です（ただ、PC上でのエラーメッセージと、メール添付でのエラーメッセージがことなるので少し不安です）。

Sub myConvert()


Dim wb10 As Workbook
Dim ws10 As Worksheet


Dim RangeSrc As Range
Dim RangeDictionary As Range
Dim RowNoSourceCurrent As Long
Dim RowNoSourceMax As Long
Dim RowNoDictionaryCurrent As Long
Dim RowNoDictionaryMax As Long
Dim StringWork As String
Dim RangeWork As Range

Const CoumnNoSourceOffset As Long = 1 '元の列の何列右側に出力するか
Const StingRangeSrcAddress As String = "A2:A1200" '翻訳対象セル範囲アドレス
Const StingRangeDictionaryAddress As String = "E1:F1500" '辞書リストセル範囲アドレス


Set wb10 = Workbooks("シンツール名称.xlsx")
wb10.Activate
Set ws10 = Worksheets("名称")
ws10.Activate


Set RangeSrc = Range(StingRangeSrcAddress)
Set RangeDictionary = Range(StingRangeDictionaryAddress)


RowNoSourceMax = RangeSrc.Rows.Count
RowNoDictionaryMax = RangeDictionary.Rows.Count

For RowNoSourceCurrent = 1 To RowNoSourceMax
Set RangeWork = RangeSrc.Cells(RowNoSourceCurrent, 1)
StringWork = RangeWork
For RowNoDictionaryCurrent = 1 To RowNoDictionaryMax
StringWork = Replace(StringWork, RangeDictionary(RowNoDictionaryCurrent, 1), RangeDictionary(RowNoDictionaryCurrent, 2))
Next
RangeWork.Offset(0, 1) = StringWork
Next

MsgBox "完了しました"

End Sub



投稿者エクセルレベル
ブラインドタッチができエクセル組み込みの関数の意味が分かるレベル

よろしくお願いします。