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
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 :
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?

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

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