Dim TheDate As Date ' Declare variables.
Dim Msg
TheDate = InputBox("Enter a date:")
Msg = "Week: " & DatePart("ww", TheDate)
MsgBox MsgBut there are varying definitions of the week number. You might
want to look at Chip Pearson's
sitehttp://www.cpearson.com/excel/weeknum.htm-- Regards,Tom Ogilvy
"Pokey*" wrote in message
...
Is there a way to format the worksheet so if I type 10
numbers in A1, that it automatically tabs over to C1?
And then repeat the process on the next row within a
certain range?

Also, can you find the Week of a certain date with simple
code? I have a complex formula that works, but isn't
there a way similar to Month(Date)?

Thanks again!