[sree kasi]

Hi,

I am new to Excel and VBA, I am looking for a keyboard shortcut to select
all worksheets in an excel workbook.

(Infact, i am planning to select all worksheets using a keeyboard shortcut
and then deselect the last worksheet, to delete all the selected worksheets.
I wish to use this, while i record a macro, to do this everytime i need to
update my file. Actually before running my macro, which would copy some
sheets from an open workbook, i need to delete these old sheets.)

Hoping for a reply and guidance soon,
Sincerely,
Sree

[JE McGimpsey]

One way, without deselecting:

Public Sub DeleteAllButLastSheet()
Dim i As Long
With ActiveWorkbook.Worksheets
If .Count 1 Then
For i = 1 To .Count - 1
.Item(i).Select Replace:=False
Next i
On Error Resume Next
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End If
End With
End Sub


In article ,
sree kasi wrote:

Hi,

I am new to Excel and VBA, I am looking for a keyboard shortcut to select
all worksheets in an excel workbook.

(Infact, i am planning to select all worksheets using a keeyboard shortcut
and then deselect the last worksheet, to delete all the selected worksheets.
I wish to use this, while i record a macro, to do this everytime i need to
update my file. Actually before running my macro, which would copy some
sheets from an open workbook, i need to delete these old sheets.)

Hoping for a reply and guidance soon,
Sincerely,
Sree

[sree kasi]

That was super, it worked fine with my objective. Is it possible to record
that using a reader, or is it a real VB Program. Please let me know. I wish
to learn more.

"JE McGimpsey" wrote:

One way, without deselecting:

Public Sub DeleteAllButLastSheet()
Dim i As Long
With ActiveWorkbook.Worksheets
If .Count 1 Then
For i = 1 To .Count - 1
.Item(i).Select Replace:=False
Next i
On Error Resume Next
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End If
End With
End Sub


In article ,
sree kasi wrote:

Hi,

I am new to Excel and VBA, I am looking for a keyboard shortcut to select
all worksheets in an excel workbook.

(Infact, i am planning to select all worksheets using a keeyboard shortcut
and then deselect the last worksheet, to delete all the selected worksheets.
I wish to use this, while i record a macro, to do this everytime i need to
update my file. Actually before running my macro, which would copy some
sheets from an open workbook, i need to delete these old sheets.)

Hoping for a reply and guidance soon,
Sincerely,
Sree

[JE McGimpsey]

XL Macros are recorded as VBA commands, so there's really no difference
between macros and "real" VBA.

However, there are a lot of things that cannot be recorded, including
for...next loops and the .DisplayAlerts commands. I rarely use the
recorder any longer.

You can find out more about macros he

http://www.mvps.org/dmcritchie/excel/getstarted.htm

In article ,
sree kasi wrote:

That was super, it worked fine with my objective. Is it possible to record
that using a reader, or is it a real VB Program. Please let me know. I wish
to learn more.

[sree kasi]

Thank you very much for your help, i wish to be in touch.

"JE McGimpsey" wrote:

XL Macros are recorded as VBA commands, so there's really no difference
between macros and "real" VBA.

However, there are a lot of things that cannot be recorded, including
for...next loops and the .DisplayAlerts commands. I rarely use the
recorder any longer.

You can find out more about macros he

http://www.mvps.org/dmcritchie/excel/getstarted.htm

In article ,
sree kasi wrote:

That was super, it worked fine with my objective. Is it possible to record
that using a reader, or is it a real VB Program. Please let me know. I wish
to learn more.