Sub LT(wbname As String, wsname As String)   ' Graphing Lifetime
 Results
     Dim normalgraph As Chart                ' normal graph variable
     Dim regressgraph As Chart               ' regression graph
 variable
     Dim twoGraphs As ChartObjects              'Chartobjects for
 embedded charts
 
     Dim ngName As String                'normal graph name for moving
 the chart
     Dim rgName As String                'regression graph name for
 moving the chart
 
     Dim i As Long                           ' loop counter
     Dim colEnd As Long                         ' end of a column
 
     Workbooks(wbname).Sheets(wsname).Activate       'activate
 worksheet of interest
 
     Let colEnd = Range("c2").End(xlDown).Row
 
     ' Select data range
     Range(Cells(2, 2), Cells(colEnd, 6)).Select
 
     ' insert new graph for showing Fuel cell voltage, flow,
 temperature,
     ' and fuel cell current
     Set normalgraph = Charts.Add
     Set normalgraph = normalgraph.Location(whe=xlLocationAsObject,
 Name:=wsname)
     ngName = normalgraph.Name
 
     'more code