Dynamisk plot fra excel

Du kan hente den her fil som inspiration:
http://www.divshare.com/download/2842039-ccc

Den er fræk, det var præcis sådan noget jeg er ude i :)

Hvis der er nogen der er nysgerrige, så faldt jeg over denne dejlige "checkbox" kode - sådan noget man bare bliver helt varm om hjertet af :)

Sub AddCheckBoxes()
    On Error Resume Next
    Dim c As Range, myRange As Range
    Range("B7:D7").Select
    Set myRange = Selection
    For Each c In myRange.Cells
        ActiveSheet.CheckBoxes.Add(c.Left, c.Top, c.Width, c.Height).Select
            With Selection
                .LinkedCell = c(-3, 1).Address
                .Characters.Text = ""
                .Name = c.Cells(-5, 1).Address
            End With
            c.Cells(-3, 1).Select
            With Selection
                .FormatConditions.Delete
                .FormatConditions.Add Type:=xlExpression, _
                    Formula1:="=" & c.Cells(-3, 1).Address & "=SAND"
                .FormatConditions(1).Font.ColorIndex = 3 'change for other color when ticked
                .FormatConditions(1).Interior.ColorIndex = 4 'change for other color when ticked
                .Font.ColorIndex = 5 'cell background color = White
            End With
        Next
        myRange.Select
End Sub

Sub TurnOnCheckboxesSelection()
    On Error Resume Next
    Dim cb As Shape, Cell As Range
    Range("B7:D7").Select
    For Each cb In ActiveSheet.Shapes
        Set Cell = Intersect(Selection, _
            Range(cb.TopLeftCell.AddressLocal))
        If Not Cell Is Nothing Then _
            cb.ControlFormat.Value = xlOn
        Set Cell = Nothing
    Next
End Sub

Sub TurnOffCheckboxesSelection()
    On Error Resume Next
    Dim cb As Shape, Cell As Range
    Range("B7:D7").Select
    For Each cb In ActiveSheet.Shapes
        Set Cell = Intersect(Selection, _
            Range(cb.TopLeftCell.AddressLocal))
        If Not Cell Is Nothing Then _
            cb.ControlFormat.Value = xlOff
            Set Cell = Nothing
    Next
End Sub

Sub RemoveCheckboxes()
    On Error Resume Next
    ActiveSheet.CheckBoxes.Delete
    Selection.FormatConditions.Delete
End Sub