title: Can Excel Worksheet Events be made to work like that of Google Translate?
body: <p>I am writing a program in the <code>Worksheet_SelectionChange</code> event to better understand the worksheet events, how it is fired and such.</p>
  <p>My program takes the string in &quot;<em>A1</em>&quot; and gives the reversed string in &quot;<em>B1</em>&quot;.</p>
  <p>It is not as elegant as the <a href="https://translate.google.co.in/" rel="nofollow noreferrer">Google Translate</a>. In Google Translate with every keystroke, the translate function is up and running, while in my case I need to select a different cell then select &quot;<em>A1</em>&quot; again, for the event to fire and give the output.</p>
  <p>Are there ways to make the events better or, create our own events, or use a combination of available events.</p>
  <pre class="lang-vb prettyprint-override"><code>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Dim MyRange As Range
      Set MyRange = Sheet1.Range(&quot;A1&quot;)
      If Not Intersect(Target, MyRange) Is Nothing Then
          If Target.Cells.Count &gt; 1 Then
              Exit Sub
          Else
              Target.Offset(0, 1).value = &quot;&quot;
              Target.Offset(0, 1).value = ReverseWord(Target.value)
          End If
      End If
  End Sub
  
  
  Private Function ReverseWord(val As String)
      Dim newstring As String
      Dim pos As String
      For j = Len(val) To 1 Step -1
          pos = Mid(val, j, 1)
          newstring = newstring &amp; pos
      Next
      ReverseWord = newstring
  End Function
  </code></pre>
  <p><a href="https://i.stack.imgur.com/IS6CE.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/IS6CE.png" alt="enter image description here" /></a></p>