I have Tried now using this code to see if it would help my problems g
away. It doesnt seem to help much at all. Any Clues?


Sub testmacro()
'
' testmacro Macro
' A Cell adds info to other cells
'
If Range("A1") = ("1") Then
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 If
End Sub

I tried using the If Range to help me, but my skills in Excel VB i
running out.:

--
joelbeveridg
-----------------------------------------------------------------------
joelbeveridge's Profile: http://www.excelforum.com/member.php...fo&userid=3704
View this thread: http://www.excelforum.com/showthread.php?threadid=56772

get rid of the parentheses around the "1": If Range("A1") = "1" Then..

--
protonLea

-----------------------------------------------------------------------
protonLeah's Profile: http://www.excelforum.com/member.php...fo&userid=3209
View this thread: http://www.excelforum.com/showthread.php?threadid=56772