clear all sheets code
 

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?

clear all sheets code
 

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
sheets. is there a bit of code i could use to select cells without activating
the sheet?

clear all sheets code
 

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 :
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
sheets. is there a bit of code i could use to select cells without activating
the sheet?

clear all sheets code
 

On Wednesday, November 12, 2014 9:57:01 PM UTC-6, Matthew Dyer wrote:
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?
changing cells.delete to .usedrange.rows.delete may be faster

clear all sheets code
 

I see the Horns got the job done yesterday.

Maybe see Aggies in an all Texas bowl?

Gord

On Fri, 14 Nov 2014 08:06:59 -0800 (PST), wrote:

On Wednesday, November 12, 2014 9:57:01 PM UTC-6, Matthew Dyer wrote:
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?
changing cells.delete to .usedrange.rows.delete may be faster