파일 열 때 특정 시트로 이동하기

Private Sub Workbook_Open()

    Dim sheetName As String
    ' 이동하고자 하는 시트 이름으로 변경
    sheetName = "Sheet1"

    ' 지정한 시트로 이동
    Sheets(sheetName).Select
End Sub

 

시트가 없으면 아래와 같이 에러가 납니다.

 

아래와 같이 간단하게 수정했습니다.

Private Sub Workbook_Open()

    Dim sheetName As String
    ' 이동하고자 하는 시트 이름으로 변경.
    sheetName = "Sheet1"

    ' 시트가 존재하는지 확인
    Dim ws As Worksheet
    
    On Error Resume Next
    Set ws = Sheets(sheetName)
    On Error GoTo 0

    ' 시트가 존재하면 이동하고, 존재하지 않으면 메시지를 표시
    If Not ws Is Nothing Then
        ws.Select
    Else
        MsgBox "시트 '" & sheetName & "'가 존재하지 않습니다.", vbExclamation
    End If
End Sub