you could use a worksheet change event something like this
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Range("A1") Then
If Target = 1 Then
Range("A2").Select
Selection.Value = 10
ElseIf Target = 2 Then
Range("A2") = 20
ElseIf Target = 3 Then
Range("A2") = 30
ElseIf Target = 4 Then
Range("A2") = 40
ElseIf Target = 5 Then
Range("A2") = 50
ElseIf Target = 6 Then
Range("A2") = 60
ElseIf Target = 7 Then
Range("A2") = 70
ElseIf Target = 8 Then
Range("A2") = 80
ElseIf Target = 9 Then
Range("A2") = 90
ElseIf Target = 10 Then
Range("A2") = 100
ElseIf Target = 11 Then
Range("A2") = 110
ElseIf Target = 12 Then
Range("A2") = 120
ElseIf Target = 13 Then
Range("A2") = 130
ElseIf Target = 14 Then
Range("A2") = 140

End If
End If

End Sub


A lookup formula would be much easier though


--
davesexcel


------------------------------------------------------------------------
davesexcel's Profile: http://www.excelforum.com/member.php...o&userid=31708
View this thread: http://www.excelforum.com/showthread...hreadid=557707