clear all sheets code

  • Thread starter Thread starter Matthew Dyer
  • Start date Start date
M

Matthew Dyer

i'm using the following code to clear/delete anything and everything in already existing sheets:
Sub wbclear()
Dim N As Long
Dim ttl As Long
ttl = ThisWorkbook.Worksheets.Count
For N = 1 To ttl
Worksheets(N).Cells.Delete
Next N
End Sub

what i'd also want is to have cell a1 selected but adding range("a1").select does not work, and i think it's simply because i'm never activating the sheets via code, just deleting the data held in the sheets. is there a bit of code i could use to select cells without activating the sheet?
 
hi Matthew Dyer,

Sub test()
For Each sh In Worksheets
With sh
.Cells.Delete
End With
Next
End Sub

isabelle

Le 2014-11-12 22:56, Matthew Dyer a écrit :
i'm using the following code to clear/delete anything and everything in already existing sheets:
Sub wbclear()
Dim N As Long
Dim ttl As Long
ttl = ThisWorkbook.Worksheets.Count
For N = 1 To ttl
Worksheets(N).Cells.Delete
Next N
End Sub

what i'd also want is to have cell a1 selected but adding range("a1").select does not work, and i think it's simply because
i'm never activating the sheets via code, just deleting the data held in the
Click to expand...
sheets. is there a bit of code i could use to select cells without activating
the sheet?
 
sorry, i forgot to select cell A1

Sub test()
For Each sh In Worksheets
With sh
.Cells.Delete
Application.Goto .Cells(1, 1)
End With
Next
End Sub

isabelle

Le 2014-11-12 23:20, isabelle a écrit :
 
i'm using the following code to clear/delete anything and everything in already existing sheets:
Sub wbclear()
Dim N As Long
Dim ttl As Long
ttl = ThisWorkbook.Worksheets.Count
For N = 1 To ttl
Worksheets(N).Cells.Delete
Next N
End Sub

what i'd also want is to have cell a1 selected but adding range("a1").select does not work, and i think it's simply because i'm never activating thesheets via code, just deleting the data held in the sheets. is there a bitof code i could use to select cells without activating the sheet?
Click to expand...
changing cells.delete to .usedrange.rows.delete may be faster
 
I see the Horns got the job done yesterday.

Maybe see Aggies in an all Texas bowl?

Gord
 
Back
Top