Trouble when using the weekday function

[arnelgp]

change it to:

I = 1
Sheets("taks1").Select
Do Until I = howmanydays
    ' fullday = I & "/" & monthnumber & "/" & yearnumber
    dayoftheweek = Weekday(DateSerial(yearnumber, monthnumber, i)         
    ' Weekday(fullday) '*** error happens here! ***
    Call MIX_TranslateWeekDayName(dayoftheweek,dayname)
    ran = "I" & I + 3
    Range(ran).Value = dayname
I = I + 1
Loop