Dim i as Long
for i = 4 to 6
worksheets("Sheet" & i ).copy
ActiveWorkbook.SaveAs "C:\Directory" & i-3 _
& "\" & worksheets(i).Name & ".xls"
ActiveWorkbook.Close SaveChanges:=False
Next i

--
Regards,
Tom Ogilvy


"Ren" wrote in message
...
HI!

I NEED TO SAVE THREE WORK SHEET.

SHEET 4,5,6.

THE USER PUSHES A BUTTON AND RESULTS ARE DISPLAYED, BUT I WOULD ALSO LIKE
THESE SHEETS TO BE SAVED IN DIRECTORY1, DIRECTORY2, DIRECTORY3.

THANKS TO ALL FOR YOUR HELP.

REN