­ã´£³¡ªL

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim SelRng As Range
With Target
     Set SelRng = Intersect(Range("ÂIÀ\°Ï"), .Cells)
     If SelRng Is Nothing Then Exit Sub
     If SelRng.Address = .Address Then
        MsgBox "¿ï¨ú°Ï¦b½d³ò°Ï¤º¡I¡@"
     Else
        MsgBox "¿ï¨ú°Ï¥]§t½d³ò°Ï¥~¡I¡@"
     End If
End With
End Sub