Workbook Replication Macro is Broken

[Bill_Biggs]

I was cleaning up so code earlier in a macro I use on a regular basis and I have somehow damaged it. The following portion of code is supposed to cause the workbook to make a copy of itself, but where it used to sail right through, now it locks up on the sh.Select command. Can someone help me figuire out what I did?

<font face=Courier New><SPAN style="color:#007F00">'Replicate workbook without macros</SPAN><br><SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> sh <SPAN style="color:#00007F">In</SPAN> ThisWorkbook.Sheets<br>    sh.Select<br><SPAN style="color:#00007F">Next</SPAN> sh<br><SPAN style="color:#007F00">'Create Cisco Book</SPAN><br>ThisWorkbook.Windows(1).SelectedSheets.Copy<br>    Sheets("All Components (INT)").Select<br>        ActiveWindow.SelectedSheets.Visible = <SPAN style="color:#00007F">False</SPAN><br>ActiveWorkbook.SaveAs (B & "\Flextronics_Austin_Customer_Cisco_Tracker_Report_" & Format(Date, "mm-dd-yyyy"))<br>    ActiveWorkbook.Close SaveChanges:=<SPAN style="color:#00007F">False</SPAN><br></FONT>

Thanks,

 

[btadams]

What if you just use:

Sheets.Select