чтобы не гадать на кофейной гуще, кто вам отвечает и после этого не совершать кучу ошибок - обратитесь к собеседнику на ВЫ - ответ на ваш вопрос получите - а остальное вас не касается (п.п.п. на форумах)
Hugo. ТС может и не расскажет, но лично у меня ваша деталь выпала из поля зрения на vba - сижу и мучаюсь... хоть в ячейки вставила на автомате ('), в вба уже на автомате забыла (вечер как никак)... благодаря вам вспомнила один...
Код
Sub T()
Dim retval As String, C As Range
For Each C In Selection
retval = CStr("'" & Left(C, 1) & Right(C, 1))
C = retval
Debug.Print retval
Next C
End Sub
если ТС использовал другой вариант, то посоветую ему в след раз выполнять Правила Форума - вкладывать файл...
чтобы не гадать на кофейной гуще, кто вам отвечает и после этого не совершать кучу ошибок - обратитесь к собеседнику на ВЫ - ответ на ваш вопрос получите - а остальное вас не касается (п.п.п. на форумах)