Here's a simple macro:

Sub AddString()

Dim cell As Range
For Each cell In Selection
If cell.Value < "" Then
cell.Value = cell.Value & ".xls"
Else: cell.Value = cell.Value
End If

Next cell

End Sub

Place it in a GENERAL module.

Select the range of cells and run the macro.

Biff

"Abhijit Bamishte" <Abhijit wrote in
message ...
There are 100 rows in my excel sheet. I want to appent same word (".xls")
to
all the cell data in a perticular column at once instance. Is there any
formula/function for this? Otherwise I have to edit the data in every cell
in
that column for all 100 rows and append the word.