combobox/worksheet error

[depcdivr]

I have a userform with a combobox that I am populating with worksheet names. when the user selects a value from the combobox it will set a variable equal to the value of the combobox.

Private Sub item_Change()
Set ws = Worksheets(Me.item.Value)
icol = ws.Cells(10, Columns.count).End(xlToLeft).Offset(0, 1).Column

The problem comes when the user starts typing the value in the combobox as a short cut. If the user types in something that is not one of the choices then the program errors out on the set ws line.

I tried using

  On Error Resume Next

but it still errors out. Any suggestions on what I can do to prevent this from happening?

 

[diddi]

try this

Private Sub item_Change()
    if me.item.listindex>-1 then
        Set ws = Worksheets(Me.item.Value)
        if icol = ws.Cells(10, Columns.count).End(xlToLeft).Offset(0, 1).Column
    end if

 

[depcdivr]

Thanks for the help. The code did work for me but


It worked better for me to use this instead

 If Me.item.ListIndex = -1 Then
            MsgBox "select a valid item"
            Exit Sub
            
 End If

 

[diddi]

so long as it solved the problem

the proverbial cat may be skinned in many ways