Re: Add .jpg to all cells

Home Forums Office Office 2007 General Issues Add .jpg to all cells Re: Add .jpg to all cells


Ossian
Moderator
#183787

Re: Add .jpg to all cells

Assuming your data is in column A from A1 downwards:

Quote:
Sub AmendCell()

‘ AmendCell Macro

Range(“A1”).Select
‘ Set Do loop to stop when an empty cell is reached.
Do Until IsEmpty(ActiveCell)
ActiveCell.Value = ActiveCell.Value & “.jpg”
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Edit “Range(A1).Select” to suit your spreadsheet