Combobox VBA

Her er en måde at gøre det på. Du skal bruge en combobox fra Kontrolelementer (ikke fra formularer) og indsætte koden i arket eget kodemodul (højreklik på arkfanen og vælg "Vis programkode")

Private Sub ComboBox1_Change()
lrow = ActiveCell.Row 'Finder rækken på den aktive celle
Select Case ComboBox1.Value
  Case "Rev 1": Range("M" & lrow).Select
  Case "Rev 2": Range("O" & lrow).Select
  Case "Rev 3": Range("R" & lrow).Select
  Case Else:
End Select
End Sub

Private Sub Worksheet_Activate()
ComboBox1.List = Array("Rev 1", "Rev 2", "Rev 3")
End Sub