Kevin Kostner

в результате должно получиться это

Sub InsertStuffAfter()
Dim cell
For Each cell In Selection
cell.Value = cell.Value & ".xls"
Next cell
End Sub

UPD: нашел, вопрос закрыт

При установке получаю эту ошибку www.picshare.ru/view/7706903