Macro para bajar a sig. Celda al teclear máximo 20 caracteres

Les agradecería por favor que me ayudaran a realizar una macro que permita bajar automáticamente a la siguiente celda al llegar a un máximo de 20 caracteres (sin presionar Enter), debe permitir un mínimo de un carácter y un máximo de 20.

Esta es la que he estado elaborando pero no funciona

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B17") = 20 Then
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(0, 0).Select
End If
End Sub

Y esta me la envio HBanchieri de Todo Excel, funciona pero presionando enter

Dim rgo As Range
Set rgo = ActiveSheet.Range("B17:B31")
If Not Intersect(Target, rgo) Is Nothing Then
            If limite = 20 Then
                 Target.Offset(1, 0).Select
            Else
                  MsgBox "Se deben introducir 20 caracteres", vbInformation+vbOkOnly, "Requisito de escritura"
                 Exit Sub
            End If
End If
End Sub