Как массово переименовать строки в Excel?
Sub InsertStuffAfter()
    Dim cell
    For Each cell In Selection
    cell.Value = cell.Value & ".xls"
    Next cell
End Sub
UPD: нашел, вопрос закрыт
А ещё можно "сцепить" в любой свободной колонке, а потом вставить "значения" в нужную колонку.