Удалить ведущих персонажей из активной ячейки

Question

Приведенный ниже код удаляет 123 начальных символа из текстовой строки в диапазоне ячеек. То, что я пытался выяснить без удачи, это изменить его, удалив ведущих персонажей из активной ячейки вместо диапазона ячеек. Я попытался изменить его для каждой ячейки в Active.Ячейка ..... но это не сработало. Может ли кто-нибудь помочь мне с этим?

Sub Del()
Dim cell As Object

    For Each cell In Range("A2:A10")
        If Not IsEmpty(cell) Then
        cell.Value = Right(cell, Len(cell) - 123)
        Columns("A").HorizontalAlignment = xlCenter
    End If

    Next cell

Answer 1

Sub Del()

Worksheets("Лист1").активировать

ActiveCell.Значение = справа (ActiveCell, Len (ActiveCell) - 123)

End Sub