הנה מאקרו פשוט לשינוי השפה עברית - אנגלית, אנגלית - עברית.
Sub שינוי_שפה()
    Static toggleState As Boolean ' משתנה סטטי שמעקב אחרי המצב
    If toggleState Then
        ' לחיצה שניה – מאקרו לשפה עברית
        Call שינוי_שפה_לעברית
    Else
        ' לחיצה ראשונה – מאקרו לשפה אנגלית
        Call שינוי_שפה_לאנגלית
    End If
    
    ' הפעלת מצבים מחזוריים – אם הוא עבר מ-True ל-False ולהפך
    toggleState = Not toggleState
End Sub
Sub שינוי_שפה_לעברית()
   Application.Keyboard (1037)
End Sub
Sub שינוי_שפה_לאנגלית()
   Application.Keyboard (1033)
End Sub
וכן אפשר גם דרך הקלט מאקרו, ותלחץ אלט שיפט, אבל זה יהיה רק חד כיווני, וצריך שני לחצנים אחד לעברית וחד לאנגלית, וזה יוצא ככה:
Sub שינוי_שפה_לעברית()
   Application.Keyboard (1037)
End Sub
Sub שינוי_שפה_לאנגלית()
   Application.Keyboard (1033)
End Sub