Thanks Ryan

Thats just the job.

D


Ryan H wrote:
Put this code in the worksheet module.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$C$16" Then
Select Case Target.Value
Case Is = "0": Range("C17").Select
Case Is = "1": Range("F16").Select
End Select
End If

End Sub

Hope this helps! If so, click "YES" below.
Hi all

[quoted text clipped - 8 lines]

D

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200912/1