Sub Main

'Initialize Grapher
Dim Grapher As Object
Set Grapher = CreateObject("Grapher.Application")
Grapher.Visible = True
Set Plot1 = Grapher.Documents.Add(grfPlotDoc)

'Create line plot graph
Plot1.Shapes.AddLinePlotGraph(Grapher.Path + "\Samples\multiple sheet.xls!Sheet1",1,2)
Set Graph1 = Plot1.Shapes.Item(1)
Set LineScatterPlot1 = Graph1.Plots.Item(1)

'Add line plot to graph
Graph1.AddLinePlot(Grapher.Path + "\Samples\multiple sheet.xls!Sheet2",1,2,"X Axis 1","Y Axis 1")
Set LineScatterPlot2 = Graph1.Plots.Item(2)

'Add line plot to graph
Graph1.AddLinePlot(Grapher.Path + "\Samples\multiple sheet.xls!Sheet3",1,2,"X Axis 1","Y Axis 1")
Set LineScatterPlot3 = Graph1.Plots.Item(3)

End Sub