vba sheet code

[ottasight]

hi
i pasted these into a new workbook's worksheet code, and can't get them to work. thanks for the help
Private Sub WORKSHEET_CALCULATE()
dim b as integer
b=0
do
Range("D3").FormulaR1C1 = b
b = b+1
loop while b < 3
End Sub



Private Sub WORKSHEET_CALCULATE()
Range("D3").FormulaR1C1 = "monday"
End Sub
neither works when sheet is auto calculated, but does print monday from the immediate window

 

[Smitty]

It's actually Do While...Loop:

<font face=Calibri><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Worksheet_Calculate()<br>    <SPAN style="color:#00007F">Dim</SPAN> b <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN><br>        b = 0<br>            <br>            <SPAN style="color:#00007F">Do</SPAN> <SPAN style="color:#00007F">While</SPAN> b < 3<br>                Range("D3").FormulaR1C1 = b<br>                b = b + 1<br>            <SPAN style="color:#00007F">Loop</SPAN><br>            <br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

And you can't have two like event procedures in the same module or they'll conflict, but you can combine them.

I'm curious as to why you want the loop since it will always result in 2 though?