jackie
12/14/2006 1:09:00 PM
Sorry, I am not a programmer and wasn't sure how much of the code was
necessary for help. The last line shown is my first error so I don't know
where else the problems might be. I am actually adapting a macro that was
written for another chart creation project and thought I could simply
substitute line numbers. The message I get is Run Time Error 424 object
required.
"John Bundy" wrote:
> For starters you don't have a next to go with your For. What error are you
> getting?
> --
> -John
> Please rate when your question is answered to help us and others know what
> is helpful.
>
>
> "Jackie" wrote:
>
> > I have the following code which will not run past the last line. I am
> > trying to create charts 4 to a page using every 8th and 9th row of data. Any
> > help is appreciated.
> >
> > Declare Variables
> > Dim intLoopCount As Integer 'Counter for loop
> > Dim intRowStart As Integer 'Row number to start at for first chart
> > Dim intRowEnd As Integer 'Row number to end at for first chart
> > Dim intSheetChartCount As Integer 'Count of charts on a sheet
> > Dim intSheetCount As Integer 'Count of sheets
> > Dim strSheetName As String 'Name of sheet
> >
> > 'Initialize Variables
> > intLoopCount = 8 'Start in row 8 for loop
> > intRowStart = 8 'Start in row 8
> > intRowEnd = 9 'End in row 9
> > intSheetChartCount = 1 'First chart on sheet
> > intSheetCount = 1 'First sheet of charts
> >
> > 'Loop to create charts until no data is found
> > For intLoopCount = intLoopCount To (Sheet4.UsedRange.Rows.Count / 4) + 1
> >