ComboBox

Hi,

I have a problem with a code because Im getting a runtime error (Activate method of Range class failed)

[VBA]Option Explicit
Private Sub ComboBox1_change()
Dim c As Integer
c = Application.WorksheetFunction.Match(ComboBox1.Value, Range("A4:BX4"), 0)
Cells(4, c).Activate
End Sub
[/VBA]

Can't reproduce. What value did you select that gave this?

Hi Bob,

U can see the value in column I202:I222 in my ws