请教高手

小斌(′酔意流年

Sub 创建申报表()
    ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\评估申报表.xls"
    Dim x As Integer
    For x = 1 To Workbooks.Count
        If Workbooks(x).Name = "评估申报表.xls" Then
            MsgBox """评估申报表""工作簿已经打开!"
            Exit Sub
        End If
    Next
    Workbooks.Open ThisWorkbook.Path & "\评估申报表.xls"

    Dim i As Integer
    For i = 1 To Sheets.Count
    Sheets(i).Cells.Replace What:="评估汇总表", Replacement:="评估申报汇总表"
    Sheets(i).Cells.Replace What:="评估明细表", Replacement:="评估申报明细表"
    Sheets(i).Cells.Replace What:="评估人员*", Replacement:=" "
    Next
End Sub

请教高手，紫色代码中的"评估人员*",在工作表中是通过链接（="评估人员："&封面1!F12）生成的，什么紫色代码执行后没有效果，替换不了。

小斌(′酔意流年

敢问 高手何在？还请赐教。