Hi to all
How do i save automatically 1st sheet only from file and give name to that
file is the name of the sheet.

any help.

Thanks

Shah

Hi

try it

Sub CopySheet()
Dim wks As Worksheet
Set wks = Worksheets("sheet1")
wks.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "c:\" & wks.Name
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub

--
天行å�¥ï¼Œå�›å*�以自強ä¸�æ�¯
地勢å�¤ï¼Œå�›å*�以厚德載物

http://www.vba.com.tw/plog/


"****al shah" wrote:

Hi to all
How do i save automatically 1st sheet only from file and give name to that
file is the name of the sheet.

any help.

Thanks

Shah

****al shah:

Another method:

ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path _
& "\" & ActiveSheet.Name, FileFormat:=xlExcel4


--
天行å�¥ï¼Œå�›å*�以自強ä¸�æ�¯
地勢å�¤ï¼Œå�›å*�以厚德載物

http://www.vba.com.tw/plog/


"****al shah" wrote:

Hi to all
How do i save automatically 1st sheet only from file and give name to that
file is the name of the sheet.

any help.

Thanks

Shah