The sort of thing that you need could be like the following

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
ActiveSheet.Unprotect
Select Case Target
Case Is = "JULY"
Target.Offset(1, 0) = "AUGUST"
Target.Offset(2, 0) = "SEPTEMBER"
Target.Offset(3, 0) = "OCTOBER"
Case Is = "AUGUST"
Target.Offset(1, 0) = "SEPTEMBER"
Target.Offset(2, 0) = "OCTOBER"
Target.Offset(3, 0) = "NOVEMBER"
End Select
ActiveSheet.Protect
End If
End Sub


--
mrice

Research Scientist with many years of spreadsheet development experience
------------------------------------------------------------------------
mrice's Profile: http://www.excelforum.com/member.php...o&userid=10931
View this thread: http://www.excelforum.com/showthread...hreadid=561535