Excel VBA下拉切换工作表语言功能失效问题求助

我正在开发一个通过下拉菜单切换Excel工作表显示语言的功能，思路是给单元格命名，通过函数在翻译表中查找单元格名称，根据所选语言应用偏移量来更新对应单元格的语言内容。

工作表变更事件代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
'///////////////INITIATES THE LANGUAGE CHANGE AND RETURNS OFFSET
Dim strLng As String
strLng = Sheet9.Range("A1").Value

On Error Resume Next

    If Target.Address = "$A$1" Then
        Select Case strLng
            Case "DA"
               LanguageChange (1)
            Case "EN"
                LanguageChange (2)
            Case "DE"
                LanguageChange (3)
        End Select
    End If
End Sub

配图：触发工作表变更事件的语言切换下拉菜单

我计划使用翻译对照表，通过模块中的以下函数查找文本ID并应用偏移量更新内容，但运行后无任何效果，无法定位错误，需要排查思路或解决建议：

配图：翻译对照表、已修改名称的单元格引用

语言切换函数代码 #

Option Explicit


'///////////////////////////////////////////////////CHANGE LANGUAGE
Public Function LanguageChange(LngOffset As Integer)

Dim LCcell As Name
Dim LCrng As Range

On Error Resume Next
Application.ScreenUpdating = False
    For Each LCcell In Sheet9.Names
        Set LCrng = Sheet3.Range("AA1:AA250").Find(LCcell, LookIn:=xlValues, MatchCase:=False).Offset(0, LngOffset)
        LCcell.Value = LCrng.Value
    Next
Application.ScreenUpdating = True

End Function

排查思路与解决建议 #

• 移除错误屏蔽代码：直接注释掉On Error Resume Next，运行时会抛出具体错误信息，比如查找失败、名称不存在等，快速定位问题。
• 修正查找匹配值：Find(LCcell)传入的是Name对象，需改为Find(LCcell.Name)，用名称的文本值去匹配翻译表AA列的内容。
• 修正单元格赋值逻辑：LCcell.Value是名称的引用地址，不是单元格内容。要修改目标单元格内容，需改为Range(LCcell).Value = LCrng.Value。
• 验证查找范围与偏移量：确认Sheet3的AA1:AA250包含所有待匹配的单元格名称，且偏移量对应正确的语言列（比如DA对应偏移1，需确保AA列右侧第1列是丹麦语内容）。
• 测试事件触发有效性：在Worksheet_Change事件中添加MsgBox "事件已触发"，确认下拉菜单选择时事件是否正常执行，同时确认事件代码位于Sheet9的代码模块中（而非标准模块）。
• 检查宏启用状态：确保Excel已启用宏，文件保存为.xlsm格式，避免宏被禁用导致代码不执行。

内容的提问来源于stack exchange，提问作者cbm9000