Am i missing something?


Yes.

Probably the parent sheet for the Range in the last line.

Selection.AutoFil
Destination:=Worksheets("YOUR_SHEET_NAME").Range(s trRange)
Type:=xlFillDays

Manges

--
mangesh_yada
-----------------------------------------------------------------------
mangesh_yadav's Profile: http://www.excelforum.com/member.php...fo&userid=1047
View this thread: http://www.excelforum.com/showthread.php?threadid=39902