I have a few sheets selected. How to have a new sheet be inserted at the
beginning, or deleting the first sheet, with the currently selected sheets
remaining to be selected.

A proper code for the same shall be obliged.

Thanx in advance.
--
Best Regards,

Faraz

Dim sh As Worksheet

Set sh = ActiveSheet
Worksheets.Add before:=Worksheets(1)
sh.Activate


--
__________________________________
HTH

Bob

"Faraz A. Qureshi" <(E-Mail Removed)> wrote in
message news:77D77ABE-1BAF-4897-BD20-(E-Mail Removed)...
>I have a few sheets selected. How to have a new sheet be inserted at the
> beginning, or deleting the first sheet, with the currently selected sheets
> remaining to be selected.
>
> A proper code for the same shall be obliged.
>
> Thanx in advance.
> --
> Best Regards,
>
> Faraz

Thanx Bob!

However, this code I believe shall work only with a single sheet selected.
But what I have is a question pertaining to multiple sheets selected?

--
Best Regards,

Faraz


"Bob Phillips" wrote:

> Dim sh As Worksheet
>
> Set sh = ActiveSheet
> Worksheets.Add before:=Worksheets(1)
> sh.Activate
>
>
> --
> __________________________________
> HTH
>
> Bob
>
> "Faraz A. Qureshi" <(E-Mail Removed)> wrote in
> message news:77D77ABE-1BAF-4897-BD20-(E-Mail Removed)...
> >I have a few sheets selected. How to have a new sheet be inserted at the
> > beginning, or deleting the first sheet, with the currently selected sheets
> > remaining to be selected.
> >
> > A proper code for the same shall be obliged.
> >
> > Thanx in advance.
> > --
> > Best Regards,
> >
> > Faraz
>
>
>

Hi,
Try this :
'------------------------------
Sub test()
Dim Sh As Object, X As String
With Workbooks(ThisWorkbook.Name)
.Activate
Set Sh = ActiveWindow.SelectedSheets
X = .ActiveSheet.Name
.Worksheets.Add before:=Sheets(1)
Sh.Select
.Sheets(X).Activate
End With
End Sub
'------------------------------

"Faraz A. Qureshi" <(E-Mail Removed)> a écrit dans le message de
groupe de discussion : 77D77ABE-1BAF-4897-BD20-(E-Mail Removed)...
I have a few sheets selected. How to have a new sheet be inserted at the
beginning, or deleting the first sheet, with the currently selected sheets
remaining to be selected.

A proper code for the same shall be obliged.

Thanx in advance.
--
Best Regards,

Faraz

Run-time Error '91':
Object variable or With block variable not set
The following line being highlighted:

X = .ActiveSheet.Name

--
Best Regards,

Faraz


"MichDenis" wrote:

> Hi,
> Try this :
> '------------------------------
> Sub test()
> Dim Sh As Object, X As String
> With Workbooks(ThisWorkbook.Name)
> .Activate
> Set Sh = ActiveWindow.SelectedSheets
> X = .ActiveSheet.Name
> .Worksheets.Add before:=Sheets(1)
> Sh.Select
> .Sheets(X).Activate
> End With
> End Sub
> '------------------------------
>
> "Faraz A. Qureshi" <(E-Mail Removed)> a écrit dans le message de
> groupe de discussion : 77D77ABE-1BAF-4897-BD20-(E-Mail Removed)...
> I have a few sheets selected. How to have a new sheet be inserted at the
> beginning, or deleting the first sheet, with the currently selected sheets
> remaining to be selected.
>
> A proper code for the same shall be obliged.
>
> Thanx in advance.
> --
> Best Regards,
>
> Faraz
>
>

X = ActiveSheet.Name



"Faraz A. Qureshi" <(E-Mail Removed)> a écrit dans le message de
groupe de discussion : 735D5AB0-6C02-486D-86F3-(E-Mail Removed)...
Run-time Error '91':
Object variable or With block variable not set
The following line being highlighted:

X = .ActiveSheet.Name

--
Best Regards,

Faraz


"MichDenis" wrote:

> Hi,
> Try this :
> '------------------------------
> Sub test()
> Dim Sh As Object, X As String
> With Workbooks(ThisWorkbook.Name)
> .Activate
> Set Sh = ActiveWindow.SelectedSheets
> X = .ActiveSheet.Name
> .Worksheets.Add before:=Sheets(1)
> Sh.Select
> .Sheets(X).Activate
> End With
> End Sub
> '------------------------------
>
> "Faraz A. Qureshi" <(E-Mail Removed)> a écrit dans le message de
> groupe de discussion : 77D77ABE-1BAF-4897-BD20-(E-Mail Removed)...
> I have a few sheets selected. How to have a new sheet be inserted at the
> beginning, or deleting the first sheet, with the currently selected sheets
> remaining to be selected.
>
> A proper code for the same shall be obliged.
>
> Thanx in advance.
> --
> Best Regards,
>
> Faraz
>
>

Here's my go.