Bill_Biggs
Well-known Member
- Joined
- Feb 6, 2007
- Messages
- 1,216
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,
<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,