[Delirium]

MR.TOR, ячейки должны задаваться или же просто нужен обход всех ячеек листа? Как пример - для диапазона в 500 строк и 500 столбцов:

Код:

Sub Макрос1()
    For i = 1 To 500
        For j = 1 To 500
            If Cells(i, j) <> "" Then
                Cells(i, j) = " '" & Cells(i, j) & "'"
            End If
        Next
    Next
    MsgBox "Готово"
End Sub

P.S. И перестаньте писать капсом, первое предупреждение.