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

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