VB code for Combo Box

[kino4city]

Hi all,
As i have previously said, I'm not very good with VB.
I have created a couple of forms with combo box's also with frames on there.

First of all I am trying to get the combo lists to ignore blanks in my selection.
eg. "worksheet.data($A$2:$A$10)
Also I am after the selection to change the chart shown.

All my charts have a different sheets in excel.

eg.

If my combobox = "GK DEFEND" then i want it to show "worksheet.GK DEFEND"
in "Frame1" or if it = "worksheet.SWEEPER Keeper" then show "worksheet.SW GK"
if non of the above then show "worksheet.GK"

If anyone can help that would be much apprieciated.

Just an example would be great then i can amend and learn how to do it myself.

Many Thanks,
Chris

 

[AlphaFrog]

Private Sub UserForm_Initialize()
    Dim cell As Range
    With ComboBox1
        .RowSource = ""
        For Each cell In Sheets("Data").Range("A2:A10")
            If cell.Value <> "" Then .AddItem cell.Value
        Next cell
    End With
    
    Frame1.Caption = "worksheet.GK"
End Sub

Private Sub ComboBox1_Change()
    Select Case ComboBox1.Value
        Case "GK DEFEND": Frame1.Caption = "GK DEFEND"
        Case "SWEEPER Keeper": Frame1.Caption = "worksheet.SW GK"
        Case Else: Frame1.Caption = "worksheet.GK"
    End Select
End Sub