Joe,

Does this do what you want?

Dim sFile As String

sFile = Format(Date, "dddmmddyy")
Workbooks("Tracking-" & sFile).Worksheets(1).Range("A1:A100").Copy
Workbooks("CallResults-" &
sFile).Worksheets(1).Range("A1:A100").PasteSpecial Paste:=xlValues


--
HTH

-------

Bob Phillips
... looking out across Poole Harbour to the Purbecks


"Joe Chavera" wrote in message
...
Two questions:

1. How do you copy and paste special between two workbooks
when the name of the workbooks change everyday.
Ex: On Wednesday, we copy assorted cells
from - Tracking-Wed072303.xls
to - CallResults-Wed072303.xls

Now tomorrow, we copy and paste special between the
same cells but the workbooks are named differently.
from - Tracking-Thu072403.xls
to - CallResults-Thu072403xls.