View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
Bill (Unique as my name)
 
Posts: n/a
Default Any way to loop this in VBA?

If ComboBox3 = 1 Then
Range("R199").Select
ElseIf ComboBox3 = 2 Then
Range("R227").Select
ElseIf ComboBox3 = 3 Then
Range("R255").Select
ElseIf ComboBox3 = 4 Then
Range("R283").Select
ElseIf ComboBox3 = 5 Then
Range("R311").Select
ElseIf ComboBox3 = 6 Then
Range("R339").Select
ElseIf ComboBox3 = 7 Then
Range("R367").Select
ElseIf ComboBox3 = 8 Then
Range("R395").Select
ElseIf ComboBox3 = 9 Then
Range("R423").Select
ElseIf ComboBox3 = 10 Then
Range("R451").Select
ElseIf ComboBox3 = 11 Then
Range("R479").Select
ElseIf ComboBox3 = 12 Then
Range("R507").Select
ElseIf ComboBox3 = 13 Then
Range("R535").Select
ElseIf ComboBox3 = 14 Then
Range("R563").Select
ElseIf ComboBox3 = 15 Then
Range("R591").Select
ElseIf ComboBox3 = 16 Then
Range("R619").Select
ElseIf ComboBox3 = 17 Then
Range("R647").Select
ElseIf ComboBox3 = 18 Then
Range("R675").Select
ElseIf ComboBox3 = 19 Then
Range("R703").Select
ElseIf ComboBox3 = 20 Then
Range("R731").Select
ElseIf ComboBox3 = 21 Then
Range("R759").Select
ElseIf ComboBox3 = 22 Then
Range("R787").Select
ElseIf ComboBox3 = 23 Then
Range("R815").Select
ElseIf ComboBox3 = 24 Then
Range("R843").Select
ElseIf ComboBox3 = 25 Then
Range("R871").Select
ElseIf ComboBox3 = 26 Then
Range("R899").Select

Thanks in advance.