Adding text to multiple files in same folder

Question

I have 50 or so Risk Assessments that have been created in Excel 2003 in a folder and numbered consecutively. All contain the same text and I now need to add two lines of text to each of the 50. Is there a way of copying and pasting to multiple files at the same time? Regards, Tony

Answer 1

You would need to create a macro, along these lines, with the items in italics changed to suit your needs:

Sub UpdateAllRiskAssessments()

  Dim I As Integer

  Const cstPath = "C:\My Folder\Risk Assessments"  Dim stFile As String

  For I=1 To 50

    stFile = "MyRiskAssess" & I & ".xls"    Workbooks.Open cstPath & stFile

    ActiveWorkbook.Sheets("Sheet1").Range("Z99").Value ="New text"

    ActiveWorkbook.Close SaveChanges:=True

  Next

End Sub

---

Bill Manville. Excel MVP, Oxford, England. www.manville.org.uk

Answer 2

Thanks for the response  Ron - its far too advanced for me though!!

Answer 3

See also

http://www.rondebruin.nl/copy4.htm

---

Regards Ron de Bruin

http://www.rondebruin.nl/tips.htm

"danmelad" wrote in message news:*** Email address is removed for privacy ***...

I have 50 or so Risk Assessments that have been created in Excel 2003 in a folder and numbered consecutively. All contain the same text and I now need to add two lines of text to each of the 50. Is there a way of copying and pasting to multiple files at the same time? Regards, Tony