Your sub Worksheet_SelectionChange gets called whenever you change
selection.

Your code "Range("f16:f40").Select" gets the sub to be called recursively

You should write:
Range("f16:f40").ClearContents

Another way to avoid these recursive calls:

Application.EnableEvents = False
Range("f16:f40").Select
Selection.ClearContents
Application.EnableEvents = True

HTH
--
AP

"msals22" a écrit dans
le message de news: ...

I have a few command buttons to reset some cells in my worksheet.
However, I cannot figure out how to keep the conditional statements in
the cell after I've cleared the entries in the cells. I am trying to
add some VB to the worksheet to do the conditionals for me. I.e., if
E16 = Yes, F16 = Enter Value. I've been trying to use some scripts
such as:

ActiveCell.FormulaR1C1 = "=IF(RC[-1]=""Yes"",""Enter Value"","""")"
Range("F16").Select

I am trying to add this code he
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

When I think I've figured out the logic I get some continuous looping
when I try to clear the contents of the cell with the command button.
An example of the command button code is:

Range("f16:f40").Select
Selection.ClearContents

Thanks for your help.


--
msals22
------------------------------------------------------------------------
msals22's Profile:
http://www.excelforum.com/member.php...o&userid=30908
View this thread: http://www.excelforum.com/showthread...hreadid=549034