帮我用VBA写一个在已打开的工作簿中打开N11单元格所提供的工作簿名称，如果这个名称没有带扩展名，需要自动补充上，如果此工作簿没有打开，会发出提示

好的，以下是我为您编写的VBA代码：

Sub OpenWorkbook()
    Dim wbName As String
    wbName = Range("N11").Value
    
    If InStr(wbName, ".") = 0 Then
        wbName = wbName & ".xlsx"
    End If
    
    On Error Resume Next
    Workbooks(wbName).Activate
    If Err.Number <> 0 Then
        MsgBox "无法找到名为 " & wbName & " 的工作簿，请确认该工作簿已打开。"
    End If
    On Error GoTo 0
End Sub

您只需要将其复制到您的VBA编辑器中，保存并运行即可。当您运行此代码时，它将读取N11单元格中的工作簿名称，并尝试打开该工作簿。如果此工作簿没有打开，它将显示一个消息框提示您确认该工作簿已打开。如果该工作簿没有带扩展名，它将自动补充上。