ComboBox

[halimi1306]

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]