Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" Then
Application.EnableEvents = False
If Target.Value = "" Then Range("F6").ClearContents: GoTo Skipper
If IsNumeric(Target) And Target.Value <> "" Then
If Target Mod 2 = 0 Then
Range("F6").Value = Target.Value + 1
Range("F6").Value = Target.Value
Application.EnableEvents = True
Member requests are more likely to be responded to.
Members can monitor the statuses of their requests from their account pages.
A CCM membership gives you access to additional options.