hi
is there a date entered? if not you can put one one the sheet somewhere to
signify that a entry was made that day.
something like this maybe......
if activesheet.range("A1").value = date then
exit sub
end if
probably put somewhere near the start of the code to kill it before it starts.

regards
FSt1

"pswanie" wrote:


it list all the sheets but i only want one sheet at a time selected and then
the data in textbox1 thru textbox9 needs go in the selected sheet if the
cells next to todays date is empty. (to prevent them from entering data
twice on one day)
----------------------------------------------------------------------------------
i changed
-------------------------------------------------------------------------------------
.multiselct - fmmultiselectsingle. now the sheet i pick from the list gets
activated. so thats fixed. no how do i prevent them to run this twice a day?



With Me.ListBox1
.MultiSelect = fmMultiSelectMulti
.ListStyle = fmListStyleOption