vba新规作成打开excel小工具

工作时总会有很多不同路径下的excel文件经常需要打开，每天不停地重复很麻烦，写了这个小工具，下边是excel内容，点击A列文件名字，触发onchange事件，新规作成打开excel，路径是对应文件的路径，E列设定onchange事件范围

下边是vba代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim pstart As String
Dim pend As String
Dim path As String

Set ws = Sheets("新建打开文件")
pstart = ws.Range("E1").Value
pend = ws.Range("E2").Value

If Target.Value <> vbNullString Then
    path = ws.Range("B" & (Target.Column + 1))
    path = IIf(Right(path, 1) <> "\", path & "\", path)
End If

If Target.Value <> vbNullString And Not Intersect(ws.Range(pstart & ":" & pend), Target) Is Nothing Then
    Dim mybook As Workbook
    Application.ScreenUpdating = False
    Set mybook = Workbooks.Open(Filename:=path & Target.Value, ReadOnly:=True)
    mybook.Worksheets().Copy
    mybook.Close savechanges:=False
    Application.ScreenUpdating = True
End If
End Sub