VBA高手看过来

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim s$
If Target.Count = 1 Then
If Target.Column = 1 And Target.Row > 1 And Target.Rows.Count = 1 And Len(Target) Then
Cancel = True
Workbooks.Open ("E:\整理\" & Target.Value)
Else
Cancel = False
End If
End If
End Sub
这么段程序我想打开指定路径的对应CAD文件，但是运行结果是excel 求大神指点