View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.worksheet.functions
T. Valko T. Valko is offline
external usenet poster
 
Posts: 15,768
Default add file extensions to a column

Here's a macro that will do it in place:

Sub Addjpg()

Dim cell As Range
For Each cell In Selection
If cell.Value < "" Then
cell.Value = cell.Value & ".jpg"
End If
Next cell
End Sub

Open the VBE editor: hit ALT F11
Open the project explorer: hit CTRL R
Find your file name in the pane that opens
Select your file name and right click
Select Insert Module
Copy/paste the code above into the window that opens on the right
Return back to Excel: hit ALT Q

Now, add the file extensions:

Select the range of cells where you want this to happen
Hit ALT F8
Select the Addjpg macro
Click the RUN button


--
Biff
Microsoft Excel MVP


"The DLC" <The wrote in message
...
Hello, I would like to add the file extension .jpg to the end of the
contents
of every cell in column A.

Right now I have cells with contents like

2004-11-034

and I would like to end up with

2004-11-034.jpg

I am new at all this, and can't for the life of me find a solution. Any
help
would be much appreciated. thank you!