Following code does not work when I put it in my PERSONAL folder in VBA
It works when I see both source and destination xls/xlt in the
VB
explorer.
What should I change about the code to make it work?
'=============================================
Sub ExportSORTSTARS()
Dim originWorkbook As Workbook
Set originWorkbook = ActiveWorkbook
Dim newSheet As Worksheet
sheetS("SS").Activate
Cells(1, 1).Activate
Cells.Select
Selection.Copy
Windows("SS0.xlt").Activate
Set newSheet = Worksheets.Add
newSheet.Name = "SS"
Cells(1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Operation:=xlNone
newSheet.Visible = False
Application.CutCopyMode = False
originWorkbook.Activate
End Su
--
Zur
-----------------------------------------------------------------------
Zurn's Profile:
http://www.excelforum.com/member.php...fo&userid=1464
View this thread:
http://www.excelforum.com/showthread.php?threadid=52916