Private Sub Form_Open(Cancel as integer)
For i = 1 to 52
Me.Controls("txtWk" & format(i,"00")) = i
next
End Sub
I need a calculated value is because I'm going to use that value in a formula in another textbox to the right of each week's number textbox.This doesn't really make sense. You are using calculated values just to return the numbers 1 through 52 to use in another calculated textbox?
Open in new window
(You were mis-using the Date function - which simply returns todays date)