halimi1306
08-19-2011, 10:49 AM
Hi,
I have a problem with a code because Im getting a runtime error (Activate method of Range class failed)
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
I have a problem with a code because Im getting a runtime error (Activate method of Range class failed)
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