엑셀 VBA 드롭다운 메뉴에서 선택하면 해당시트로 이동

엑셀 파일 다운로드

드롭다운메뉴 선택하면 시트이동.xlsm

0.04MB

Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next     With Target         If Intersect(Target, Range("i7")) Is Nothing Then         Else             Worksheets(.Value).Activate         End If     End With End Sub