Code:
Const xlLine = 4
Const xlLocationAsNewSheet = 1
(it works for me)

[Edited by QWERTY on 11-03-2000 at 09:43 AM]