On Error GoTo TemplateErrorRetailPrice '10/18/2004
Range("d" + Trim$(Str(zTopRow))).Activate
Workbooks(OE_Data).Sheets(zWorksheet).Range("l2:l2 500").Copy
'10/05/04
ActiveSheet.Paste
*** Sent via Developersdex
http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!