I'm making a form to protect all sheets or all selected sheets with
password but trying this I found a problem.
How can I know all selected sheets at moment of begin the action t
apply code only to them ?

Thanks and Regards
Daniel

--
dbarell
-----------------------------------------------------------------------
dbarelli's Profile: http://www.excelforum.com/member.php...fo&userid=3127
View this thread: http://www.excelforum.com/showthread.php?threadid=57088

dim wks as worksheet

for each wks in activewindow.selectedsheets
'your code
next wks



dbarelli wrote:

I'm making a form to protect all sheets or all selected sheets with a
password but trying this I found a problem.
How can I know all selected sheets at moment of begin the action to
apply code only to them ?

Thanks and Regards
Daniel.

--
dbarelli
------------------------------------------------------------------------
dbarelli's Profile: http://www.excelforum.com/member.php...o&userid=31275
View this thread: http://www.excelforum.com/showthread...hreadid=570888

--

Dave Peterson

Give this a try...

Sub SelectedSheets()
Dim wks As Worksheet

For Each wks In ActiveWindow.SelectedSheets
MsgBox wks.Name
Next wks
End Sub

--
HTH...

Jim Thomlinson


"dbarelli" wrote:


I'm making a form to protect all sheets or all selected sheets with a
password but trying this I found a problem.
How can I know all selected sheets at moment of begin the action to
apply code only to them ?

Thanks and Regards
Daniel.


--
dbarelli
------------------------------------------------------------------------
dbarelli's Profile: http://www.excelforum.com/member.php...o&userid=31275
View this thread: http://www.excelforum.com/showthread...hreadid=570888

Sorry... Don't use that procedure name as it is a reserved word (One of the
properties of the Activewindow as we can see from the code). Change it to
something else like...

Sub MySelectedSheets()
Dim wks As Worksheet

For Each wks In ActiveWindow.SelectedSheets
MsgBox wks.Name
Next wks
End Sub

--
HTH...

Jim Thomlinson


"Jim Thomlinson" wrote:

Give this a try...

Sub SelectedSheets()
Dim wks As Worksheet

For Each wks In ActiveWindow.SelectedSheets
MsgBox wks.Name
Next wks
End Sub

--
HTH...

Jim Thomlinson


"dbarelli" wrote:


I'm making a form to protect all sheets or all selected sheets with a
password but trying this I found a problem.
How can I know all selected sheets at moment of begin the action to
apply code only to them ?

Thanks and Regards
Daniel.


--
dbarelli
------------------------------------------------------------------------
dbarelli's Profile: http://www.excelforum.com/member.php...o&userid=31275
View this thread: http://www.excelforum.com/showthread...hreadid=570888

It was more easy than I think.
Thanks a lot !!

Dany.


--
dbarelli
------------------------------------------------------------------------
dbarelli's Profile: http://www.excelforum.com/member.php...o&userid=31275
View this thread: http://www.excelforum.com/showthread...hreadid=570888

I want to create a new workbook and insert two selected sheets. Any
ideas?
Chuckles123


--
Chuckles123
------------------------------------------------------------------------
Chuckles123's Profile: http://www.excelforum.com/member.php...o&userid=14948
View this thread: http://www.excelforum.com/showthread...hreadid=570888

without too much info to go on...

Option Explicit
Sub testme()

Dim wkbk As Workbook
Dim newwkbk As Workbook

Set wkbk = Workbooks("book1.xls")

Set newwkbk = Workbooks.Add

wkbk.Worksheets(Array("sheet1", "sheet3")).Copy _
befo=newwkbk.Worksheets(1)

End Sub



Chuckles123 wrote:

I want to create a new workbook and insert two selected sheets. Any
ideas?
Chuckles123

--
Chuckles123
------------------------------------------------------------------------
Chuckles123's Profile: http://www.excelforum.com/member.php...o&userid=14948
View this thread: http://www.excelforum.com/showthread...hreadid=570888

--

Dave Peterson

Thanks very much, Dave.
I have some add'l code this query that I would like to run by you
-- I will respond to the thread that I originated last nite.

Chuckles123


--
Chuckles123
------------------------------------------------------------------------
Chuckles123's Profile: http://www.excelforum.com/member.php...o&userid=14948
View this thread: http://www.excelforum.com/showthread...hreadid=570888

If you mean create a workbook with two selected sheets, just

wkbk.Worksheets(Array("sheet1", "sheet3")).Copy

--
Regards,
Tom Ogilvy


"Chuckles123"
wrote in message
...

Thanks very much, Dave.
I have some add'l code this query that I would like to run by you
-- I will respond to the thread that I originated last nite.

Chuckles123


--
Chuckles123
------------------------------------------------------------------------
Chuckles123's Profile:
http://www.excelforum.com/member.php...o&userid=14948
View this thread: http://www.excelforum.com/showthread...hreadid=570888

Thanks for your post, Tom.
Chuckles12

--
Chuckles12
-----------------------------------------------------------------------
Chuckles123's Profile: http://www.excelforum.com/member.php...fo&userid=1494
View this thread: http://www.excelforum.com/showthread.php?threadid=57088