تحديد لغة الكتابة في خلية محددة

[مساهدية نجيب]

ارجو المساعدة في طريقة تحديد الكتابة في خلية محددة  سواء انجيزي او عربي

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'''''''''If Sheet2.Range("g7").Select Then     حدد الخلية ("g7")
    ChaingeLanguage "English"
Else
    ChaingeLanguage "Arabic"
End If
End Sub

  

 

[مساهدية نجيب]

شكرا وجدت الحل 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("g7")) Is Nothing Then
Call langue_FR
Else
Call langue_arab
End If
End Sub