VBA Excel: как выполнить функцию для каждой ячейки в столбце и просмотреть все рабочие книги?

Вот'Что я имею до сих пор:

Sub TrimColumnD()
   Dim ws As Worksheet

   For Each ws In ThisWorkbook.Worksheets
   Dim c As Range
        For Each c In ActiveSheet.UsedRange.Columns("D").Cells
            c.Value = WorksheetFunction.Trim(c.Value)
        Next c
   Next ws

End Sub

Функция обрезки работает только в ячейках первого листа, но этосидеть. Какие-либо предложения?

заранее спасибо

Ответы на вопрос(1)

Ваш ответ на вопрос