Have you tried using a text box to prompt for a value, then link that value
to the cell it is to be placed in?

sub timesheetvalues()
res = InputBox("Please Enter the Start Time for Monday", "Title")
If res = "" Then
Exit Sub
Else
Range("A1").value = res ' Adjust Cell to suit
end if
end sub

untested...

Corey....

"Jim" wrote in message
...
Want to make a form so what I type will be put in the correct cell with
out
having to manually add them to each cell they go into .

This is the excel time sheet form ai am using :
http://office.microsoft.com/en-us/te...CT101172771033