First of all thanks for looking. I have VBA program that reads creates
about 5 charts each with its own series. The issue now is how can I
add a code to see all 5 charts on the same sheet.

CODE:
If once = 0 Then
Range("A1").Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
once = 1
End If

If crnt_sht 1 Then
ActiveChart.SeriesCollection.NewSeries
End If

With Worksheets(crnt_sht)
ActiveChart.SeriesCollection(crnt_sht).XValues = .Range(F1 &
":" & F2)
ActiveChart.SeriesCollection(crnt_sht).Values = .Range(F3 & ":"
& L1)
End With

ActiveChart.Location Whe=xlLocationAsObject, Name:="sheet1"


With ActiveChart
..HasTitle = True
..ChartTitle.Characters.Text = search_item_arr(srch_count) &
" ]"
..Axes(xlCategory, xlPrimary).HasTitle = False
..Axes(xlValue, xlPrimary).HasTitle = False
End With


ActiveWindow.Visible = False
Windows("under const.xls").Activate


--
osman
------------------------------------------------------------------------
osman's Profile: http://www.excelforum.com/member.php...o&userid=34226
View this thread: http://www.excelforum.com/showthread...hreadid=564286