creating a sparkline using VBA

Hi there,

I'm trying to create a sparkline using VBA(just testing it out for fun)

Private Sub SparklineTest_Click()
Dim LINE As SparklineGroup

Dim lastrow As Integer
lastrow = Cells(Rows.Count, 1).End(xlUp).Row

set LINE = WSL.range("F2:G2").SparklineGroups.add(Type:xlsparkline, sounrcedata:="Sheet1"!A2" & lastrow


End Sub

I keep getting stuck at the word "Type" in the codeline. Error is on "Expression"

Has anybody had any experience using sparkline in VBA? The code comes from some website, but I have tried to modify it to suit my needs.

Any ideas?