[Iska]

Alexander_88, проще его не добавлять .

Попробуйте так:

Скрытый текст

Код:

Sub Sample()
    Dim objWorksheet As Worksheet
    Dim objRange As Range
    
    For Each objWorksheet In ThisWorkbook.Worksheets
        For Each objRange In objWorksheet.UsedRange
            If Left(objRange.Value, 1) = "+" Then
                objRange.Value = Mid(objRange.Value, 2)
            End If
        Next
    Next
End Sub

[Alexander_88]

Да его добавляет другой макрос)
Спасибо работает

[Iska]

Да его добавляет другой макрос) »

Я про то ж. Проще будет попробовать скорректировать тот макрос, нежели пробегать по всем (!) ячейкам использованных диапазонов всех рабочих листов в книге.