드롭다운으로 하위 내용 변경

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub  '// 다량 붙여넣기시 작동금지
    If Target.Address <> "$A$1" Then Exit Sub     '// A1 셀이 아니면 작동 금지
    If Target.Value2 = "" Then Exit Sub           '// 빈칸일때는 작동금지
    '// 혹시 빈칸일 때, 관련 영역을 지워야 한다면 아래처럼 영역을 지정하여 내용 지우기
    '// Range("A5:Z10").ClearContents
    
    '// 아래에 실제 작업할 내용을 넣거나, 작업할 매크로를 호출합니다.
    '// 아래 예제 3개중 하나를 사용하시면 됩니다.
    'MsgBox Target.Value2              '// 직접 실행
    'ViewMsgbox Target.Value2          '// 매크로 호출방식 1
    Call ViewMsgbox(Target.Value2)    '// 매크로 호출방식 2
End Sub

Sub ViewMsgbox(msg As String)
    MsgBox msg
End Sub