Udskiftning af cifre

Hej experter
For et stykke tid siden lavede Flemming Dahl denne lækkerbisken til mig (se evt. spg. 251165)

Public Sub ReplaceChar()
    Dim rCell As Range
   
    For Each rCell In Range("A1").CurrentRegion.Columns(1).Cells
        If Len(rCell.Value) = 8 Then
            Select Case Right(rCell.Value, 1)
                Case 1
                    rCell.Value = Left(rCell.Value, 7) & "G"
                Case 2
                    rCell.Value = Left(rCell.Value, 7) & "H"
                Case 3
                    rCell.Value = Left(rCell.Value, 7) & "I"
                Case 4
                    rCell.Value = Left(rCell.Value, 7) & "J"
                Case 7
                    rCell.Value = Left(rCell.Value, 7) & "K"
                Case 8
                    rCell.Value = Left(rCell.Value, 7) & "L"
            End Select
        End If
    Next rCell
    Set rCell = Nothing
End Sub


Der sker det at ciffer nr 8 i kolonne A1 bliver skiftet.
Nu har jeg et nyt problem. Jeg skal have skiftet 5 ciffer. Men jeg kan ikke få det til at virke nogle forslag ???

:-)