Sub 指定フォルダを参照する()
    
    Dim OpenFolder As String
   
    On Error GoTo ERR
    
    OpenFolder = "E:\営業所2"
    Shell "C:\Windows\explorer.exe " & OpenFolder, vbNormalFocus
    Exit Sub
    
ERR:
    MsgBox "フォルダ無し"
        
End Sub