ML089

¦^´_ 1# abbay262

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xR
    xR = Array("ABC", "DEF", "GHI")
    For Each xS In xR
        If Not Intersect(Target, Range(xS)) Is Nothing Then
            '§Aªº³B²zµ{§Ç
            MsgBox xS
            Exit Sub
        End If
    Next
End Sub