열려 있는 다른 파일의 특정 시트로 이동

Sub OpenFileAndSheet()
  Dim WB As Workbook, SH As Worksheet
  Dim fileName As String, sheetName As String
  
  '// 파일 이름과 시트이름을 지정해 줍니다.
  fileName = "\\메인서버\users\User\폴더이름\2023.Spring\DEF.xlsm"
  sheetName = "MainBoard"
  
  On Error Resume Next  '//Set 지정 오류일 경우 다음 행에서 오류 점검
  Set WB = Workbooks(Mid(fileName, InStrRev(fileName, Application.PathSeparator, -1, vbTextCompare) + 1))
  If WB Is Nothing Then Set WB = Workbooks.Open(fileName)
  If WB Is Nothing Then
      MsgBox fileName & " 파일이 없습니다."
      Exit Sub
  End If

  Set SH = WB.Worksheets(sheetName)
  If SH Is Nothing Then
      MsgBox sheetName & " 시트가 없습니다."
      Exit Sub
  End If
  On Error GoTo 0
  
  SH.Activate
  
End Sub