MsgBox Trouble

I would like to have a MsgBox pop up and ask a yes,no question when a specific cell value is greater than 1, if the answer is yes, I would like to put a value of one (1) in another column in a cell. I would like it to start at row 4 thru row 368 or so, anyway, I can't get the MsgBox to pop up unless i run the code manually, I also cannot get it to put a one in the other column. Sounds and is confusing to me, can anyone help? Thanks in advance

[Tommy Bak]

You can start by inserting this function in a module.

Public Function StartMsg()
StartMsg = MsgBox("test", vbOKCancel)
If StartMsg = 2 Then StartMsg = ""
End Function

If the cell to check for 1 is A1 and the cell where to put the

result is B1 then put this formula in B1:
=IF(A1=1;StartMsg();"")

regards Tommy

[Ivan F Moala]

On 2002-03-09 11:27, Tommy Bak wrote:
You can start by inserting this function in a module.

Public Function StartMsg()
StartMsg = MsgBox("test", vbOKCancel)
If StartMsg = 2 Then StartMsg = ""
End Function

If the cell to check for 1 is A1 and the cell where to put the

result is B1 then put this formula in B1:
=IF(A1=1;StartMsg();"")

regards Tommy

Hi Tommy

Excellent suggestion


Ivan