i searched the thread find the code but can't ok as i use excel 2007
Sub savesheet2()
Application.ScreenUpdating = False
ActiveSheet.Select
ActiveSheet.Copy
ThisFile = "PcikupExp" & Format(Date, "ddmmyy" & "hh:mm") & ".xlsx"
ActiveSheet.SaveAs Filename:="D:\Exp"
Application.ScreenUpdating = True
ActiveWorkbook.Close
End Sub
pls help do any part i should change or pls help