Well after failing at using this sites useless search function i though
i may aswell start a thread.

Now, I have a cell renge of "B2:R2" which contain a series of dates t
which my workbook needs to be updated (i.e. copy data from one sheet t
a summary sheet when it's 20/07/2006, 27/07/2006 etc).

Can someone please make some suggestions on what i'm doing wrong wit
my code below (or if you could suggest a better process from m
problem).

I'm receiving a run time error where i have highlighted below, s
theirs obveously something wrong their
"Worksheets("Sheet4").Range("c4").Value" is =today() (todays date).

Thanks.

Sub test()

Dim i As Long
Dim n As Long

For i = 2 To 17
* If Cells(i, 2) = Worksheets("Sheet4").Range("c4").Value Then *
Select Case i
Case "2"
Worksheets("Sheet1").Range("d35").Copy _
Destination:=Worksheets("Sheet4").Range("b8")


Case 3
Worksheets("Sheet1").Range("d35").Copy _
Destination:=Worksheets("Sheet4").Range("b13")

......

Case 17
Worksheets("Sheet1").Range("d35").Copy _
Destination:=Worksheets("Sheet4").Range("b73")


End Select

End If
Next

End Su

--
lv61
-----------------------------------------------------------------------
lv619's Profile: http://www.excelforum.com/member.php...fo&userid=1868
View this thread: http://www.excelforum.com/showthread.php?threadid=56226