Joel,
Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
If Target.Value = 1 Then
Range("B1").Value = "YES"
Range("C1").Value = "NO"
Range("D1").Value = "NO"
Range("E1").Value = "YES"
Else
Range("B1:E1").ClearContents
End If
End If
End Sub

Change what you want to happen is the value < 1.

NickHK

"joelbeveridge"
wrote in message
news:joelbeveridge.2bxxx6_1154569510.1202@excelfor um-nospam.com...

Hey i have Created this Easy Macro-

Sub testmacro()
'
' testmacro Macro
' A Cell adds info to other cells
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
Range("B1").Select
ActiveCell.FormulaR1C1 = "YES"
Range("C1").Select
ActiveCell.FormulaR1C1 = "NO"
Range("D1").Select
ActiveCell.FormulaR1C1 = "NO"
Range("E1").Select
ActiveCell.FormulaR1C1 = "YES"
Range("A1").Select
End Sub


Now this Macro is a Button which i dont want. I want it so when i enter
"1" into the "A" cell it adds the YES-NO-NO-YES into the other cells
shown above. Any help people? Remember i dont want a button just code
that works when enter "1" in cell A. Thanks


--
joelbeveridge
------------------------------------------------------------------------
joelbeveridge's Profile:
http://www.excelforum.com/member.php...o&userid=37045
View this thread: http://www.excelforum.com/showthread...hreadid=567724