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