Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Msg As Variant
Msg = Array("blabla 0", "blabla 1", "blabla 2", "blabla 3", "blabla 4", "blabla 5", "blabla 6", "blabla 7", "blabla 8", "blabla 9")
If Not Intersect(Target, Range("C1:C9")) Is Nothing Then MsgBox Msg(Target.Row)
End Sub