Run Macro Once select/deselect a cell

Dear experts,
I made a small macro to change the input language from English to another one "Once select a specific cell"
And also it re-activate the English when deselect this cell
--
Actually I need your support to make this happen when I select any cell in a specific “row”
So, once a cell from that row selected a Macro should start to change the language then the English will back again when I select any cell out of this row

Note: I attached a file for more details
http://www.mediafire.com/?ksjzy1a3il5pmdj

Thanks many in advance

Vishesh's picture

Change selectionchange event

Change selectionchange event to


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

    Select Case Target.Row

    Case 5, 8

        Call ActivateKeyboardLayout(lang_Hendi, KLF_REORDER)

    Case 6, 9

        Call ActivateKeyboardLayout(lang_Hebrew, KLF_REORDER)

    Case Else

        Call ActivateKeyboardLayout(lang_English, KLF_REORDER)

    End Select

End Sub

 

It's work

work perfectly

Thanks again.