Попытка сократить каждую строку, записанную в диапазоне, который также имеет сводную таблицу, до 4 символов длиной

Question

В диапазоне, который также включает сводную таблицу, требуется макрос для сокращения всех строк.В сводной таблице в этом диапазоне поля строк, столбцов и поля отчета (все строки) слишком длинные для чтения, поэтому макрос должен заменить эти строки также только на свои начальные 4 левых символа (любая другая форма сокращения также подойдет).

Sub short()
    For Each cell In Selection
        If Isalpha(cell.Value) Then-------separate funtion
            If Len(cell.Value) > 4 Then
                cell.Value = Left(cell.Value, 4)
            End If
        End If
    Next cell
End Sub 

Этот код не изменяет заголовки строк и столбцов столбца, являющегося строкой.Сокращенные значения за пределами сводной таблицы сокращены.