Thread: How do I loop through workbook and rename all chart titles?
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
pikus pikus is offline
external usenet poster
  
Posts: 1
Default How do I loop through workbook and rename all chart titles?
Here is the quick and dirty solution. I'm sure you can clean this up
bit, though. - Pikus

p = "PREF"
sheetCount = 45
For x = 1 To sheetCount
With Worksheets(x)
c = .ChartObjects.Count
For y = 1 To c
.ChartObjects(y).Chart.ChartTitle.Text = _
p & .ChartObjects(y).Chart.ChartTitle.Text
Next y
End With
Next

--
Message posted from http://www.ExcelForum.com

Reply With QuoteReply With Quote