Hi all...

I have a macro to archive some daily sales. What i want to do for th
procedure below is send the info to a closed workbook rather than th
active one. The reason for this is just to keep the active workboo
faster.

So if i wanted say, to append to Workbook "Archive", "Sheet1" which i
held in a folder called "Folder" in the C drive, how would i write th
reference?

Answers on a postcard.....

Thanks for help inadvance,

Chris

Dim SourceRange As Range, TargetRange As Range
Dim SearchRange As Range, LastWrittenCell As Range
Dim i, n As Integer, k As Integer, j As Integer, ItemToSearchFor
'--------------------------------------
' User definitions
n = 6 ' number of columns to append
Set SourceRange = [N2]
Set TargetRange = Range("BD!A1")
'--------------------------------------
Set SearchRange = Range(SourceRange, SourceRange.End(xlDown))
If IsEmpty(TargetRange) Then
Set LastWrittenCell = TargetRange
k = 0
Else
k =

--
chris10
-----------------------------------------------------------------------
chris100's Profile: http://www.excelforum.com/member.php...fo&userid=2516
View this thread: http://www.excelforum.com/showthread.php?threadid=50490