|
Copy pasted name range
Having a problem with the following. It errors out but I'm not sure why?
Thanks FYI, the sheets that are beeing delete are hiden, so is "Analysis Graphs". Sheets("Betsy").Select Range("B5").Select Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Analysis").Delete Sheets("David").Delete Sheets("Jackie").Delete Sheets("Jenni").Delete Sheets("Julio").Delete Sheets("Tally").Delete Sheets.Add Sheets("Sheet1").Select Sheets("Sheet1").Name = "Analysis Stats" Application.DisplayAlerts = True Sheets("Analysis Graphs").Select Range("BetsyR1").Select Selection.Copy Sheets("Analysis Stats").Select ActiveSheet.Paste ActiveWindow.Zoom = 70 Cells.Select Selection.Interior.ColorIndex = 2 Range("A2").Selec Sheets("Analysis Stats").Move After:=Sheets(3) Sheets("Analysis Graphs").Delete Application.DisplayAlerts = True |
Copy pasted name range
Try this...
Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Analysis").Delete Sheets("David").Delete Sheets("Jackie").Delete Sheets("Jenni").Delete Sheets("Julio").Delete Sheets("Tally").Delete Sheets.Add Sheets("Sheet1").Name = "Analysis Stats" With Sheets("Analysis Stats") Sheets("Analysis Graphs").Range("BetsyR1").Copy Desintation:=.Range("A1") .Select ActiveWindow.Zoom = 70 .Cells.Interior.ColorIndex = 2 .Range("A2").Select .Move After:=Sheets(3) End With Sheets("Analysis Graphs").Delete Application.DisplayAlerts = True -- HTH... Jim Thomlinson "pgarcia" wrote: Having a problem with the following. It errors out but I'm not sure why? Thanks FYI, the sheets that are beeing delete are hiden, so is "Analysis Graphs". Sheets("Betsy").Select Range("B5").Select Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Analysis").Delete Sheets("David").Delete Sheets("Jackie").Delete Sheets("Jenni").Delete Sheets("Julio").Delete Sheets("Tally").Delete Sheets.Add Sheets("Sheet1").Select Sheets("Sheet1").Name = "Analysis Stats" Application.DisplayAlerts = True Sheets("Analysis Graphs").Select Range("BetsyR1").Select Selection.Copy Sheets("Analysis Stats").Select ActiveSheet.Paste ActiveWindow.Zoom = 70 Cells.Select Selection.Interior.ColorIndex = 2 Range("A2").Selec Sheets("Analysis Stats").Move After:=Sheets(3) Sheets("Analysis Graphs").Delete Application.DisplayAlerts = True |
Copy pasted name range
Sorry I took so long to write back.
I get: Run-time error '1004': Application-defined or object-defined error Thanks "Jim Thomlinson" wrote: Try this... Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Analysis").Delete Sheets("David").Delete Sheets("Jackie").Delete Sheets("Jenni").Delete Sheets("Julio").Delete Sheets("Tally").Delete Sheets.Add Sheets("Sheet1").Name = "Analysis Stats" With Sheets("Analysis Stats") Sheets("Analysis Graphs").Range("BetsyR1").Copy Desintation:=.Range("A1") .Select ActiveWindow.Zoom = 70 .Cells.Interior.ColorIndex = 2 .Range("A2").Select .Move After:=Sheets(3) End With Sheets("Analysis Graphs").Delete Application.DisplayAlerts = True -- HTH... Jim Thomlinson "pgarcia" wrote: Having a problem with the following. It errors out but I'm not sure why? Thanks FYI, the sheets that are beeing delete are hiden, so is "Analysis Graphs". Sheets("Betsy").Select Range("B5").Select Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Analysis").Delete Sheets("David").Delete Sheets("Jackie").Delete Sheets("Jenni").Delete Sheets("Julio").Delete Sheets("Tally").Delete Sheets.Add Sheets("Sheet1").Select Sheets("Sheet1").Name = "Analysis Stats" Application.DisplayAlerts = True Sheets("Analysis Graphs").Select Range("BetsyR1").Select Selection.Copy Sheets("Analysis Stats").Select ActiveSheet.Paste ActiveWindow.Zoom = 70 Cells.Select Selection.Interior.ColorIndex = 2 Range("A2").Selec Sheets("Analysis Stats").Move After:=Sheets(3) Sheets("Analysis Graphs").Delete Application.DisplayAlerts = True |
Copy pasted name range
I'm not Jim, but if I were, I'd ask what line caused the error.
If it's this area: With Sheets("Analysis Stats") Sheets("Analysis Graphs").Range("BetsyR1").Copy Desintation:=.Range("A1") .Select Try correcting the spelling of Destination. pgarcia wrote: Sorry I took so long to write back. I get: Run-time error '1004': Application-defined or object-defined error Thanks "Jim Thomlinson" wrote: Try this... Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Analysis").Delete Sheets("David").Delete Sheets("Jackie").Delete Sheets("Jenni").Delete Sheets("Julio").Delete Sheets("Tally").Delete Sheets.Add Sheets("Sheet1").Name = "Analysis Stats" With Sheets("Analysis Stats") Sheets("Analysis Graphs").Range("BetsyR1").Copy Desintation:=.Range("A1") .Select ActiveWindow.Zoom = 70 .Cells.Interior.ColorIndex = 2 .Range("A2").Select .Move After:=Sheets(3) End With Sheets("Analysis Graphs").Delete Application.DisplayAlerts = True -- HTH... Jim Thomlinson "pgarcia" wrote: Having a problem with the following. It errors out but I'm not sure why? Thanks FYI, the sheets that are beeing delete are hiden, so is "Analysis Graphs". Sheets("Betsy").Select Range("B5").Select Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Analysis").Delete Sheets("David").Delete Sheets("Jackie").Delete Sheets("Jenni").Delete Sheets("Julio").Delete Sheets("Tally").Delete Sheets.Add Sheets("Sheet1").Select Sheets("Sheet1").Name = "Analysis Stats" Application.DisplayAlerts = True Sheets("Analysis Graphs").Select Range("BetsyR1").Select Selection.Copy Sheets("Analysis Stats").Select ActiveSheet.Paste ActiveWindow.Zoom = 70 Cells.Select Selection.Interior.ColorIndex = 2 Range("A2").Selec Sheets("Analysis Stats").Move After:=Sheets(3) Sheets("Analysis Graphs").Delete Application.DisplayAlerts = True -- Dave Peterson |
| All times are GMT +1. The time now is 11:48 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com