Public Declare Function GetKeyState Lib "user32" _
  (ByVal nVirtKey As Long) As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 9
        If GetKeyState(vbKeyTab) < 0 Then
            SendKeys vbTab
        End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Column = 9 Then        
      Application.ScreenUpdating = False
      If GetKeyState(vbKeyTab) < 0 Then
         SendKeys vbTab           
      End If
   ElseIf Target.Column < 9 And Application.ScreenUpdating = False Then
      Application.ScreenUpdating = True
   End If
End Sub