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?
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Hi Bob,
U can see the value in column I202:I222 in my ws
Posting Permissions
Reply With Quote
