Ren,
If folder ABC and subfolders A,B,C is already there
Try
Sub aaa()
Dim i As Long
For i = 1 To 3
Sheets("Sheet" & Chr(64 + i)).Select
Sheets("Sheet" & Chr(64 + i)).Copy
ActiveWorkbook.SaveAs _
Filename:="C:\ABC\" & Chr(i + 64) & "\" & _
"Sheet" & Chr(64 + i) & ".xls", _
FileFormat:=xlNormal, Password:="", _
WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
Next i
End Sub
Cecil

"Ren" wrote in message
...
Hi to all!

I'm also most completed my project and would like to thank all of you who
help,THANK YOU.

Right now I'm trying to save three sheets.

I need to save
SheetA in C:\ABC\A\SheetA,
SheetB in C:\ABC\B\SheetB,
SheetC in C:\ABC\C\SheetC.

I'm using a button to do this and I'm also working with ExcelXP.

Thanks in advance to all.

Cheers

Ren