'For Loop' For Selected Sheets/As Named In A Range
 

Could one of you experts kindly provide a sample code so as to determine how
to carry out an exercise of "For Loop" in the following cases?

For Each "sheet in the selected sheets"
....
....
Next

and

For Each "sheet with name listed in a range (e.g. Sheet1!A1:A10)"
....
....
Next

Thanx in advance

--
Best Regards,

Faraz

'For Loop' For Selected Sheets/As Named In A Range
 

Homework?

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Faraz A. Qureshi" wrote in
message ...
Could one of you experts kindly provide a sample code so as to determine
how
to carry out an exercise of "For Loop" in the following cases?

For Each "sheet in the selected sheets"
...
...
Next

and

For Each "sheet with name listed in a range (e.g. Sheet1!A1:A10)"
...
...
Next

Thanx in advance

--
Best Regards,

Faraz

'For Loop' For Selected Sheets/As Named In A Range
 

Hi,

Try these

Sub LoopSelected()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Windows(1).SelectedSheets
MsgBox sh.Name ' do your stuff here
Next sh
End Sub


Sub LoopSelected2()
For Each c In Range("A1:A3")
MsgBox Sheets(c.Value).Name ' do your stuff here
Next
End Sub

Mike

"Faraz A. Qureshi" wrote:

Could one of you experts kindly provide a sample code so as to determine how
to carry out an exercise of "For Loop" in the following cases?

For Each "sheet in the selected sheets"
...
...
Next

and

For Each "sheet with name listed in a range (e.g. Sheet1!A1:A10)"
...
...
Next

Thanx in advance

--
Best Regards,

Faraz

'For Loop' For Selected Sheets/As Named In A Range
 

Don,

If it is the OP gets a lot of homework judging by the 800+ previous posts!!!

Mike

"Don Guillett" wrote:

Homework?

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Faraz A. Qureshi" wrote in
message ...
Could one of you experts kindly provide a sample code so as to determine
how
to carry out an exercise of "For Loop" in the following cases?

For Each "sheet in the selected sheets"
...
...
Next

and

For Each "sheet with name listed in a range (e.g. Sheet1!A1:A10)"
...
...
Next

Thanx in advance

--
Best Regards,

Faraz

'For Loop' For Selected Sheets/As Named In A Range
 

Hi Faraz

'Loop for selected sheets
For Each shtemp In ActiveWindow.SelectedSheets
MsgBox shtemp.Name
Next


'Loop with sheets mentioned in range
For Each shtemp In ActiveWorkbook.Sheets
If WorksheetFunction.CountIf(Range("A1:A10"), _
shtemp.Name) 0 Then
MsgBox shtemp.Name
End If
Next

If this post helps click Yes
---------------
Jacob Skaria


"Faraz A. Qureshi" wrote:

Could one of you experts kindly provide a sample code so as to determine how
to carry out an exercise of "For Loop" in the following cases?

For Each "sheet in the selected sheets"
...
...
Next

and

For Each "sheet with name listed in a range (e.g. Sheet1!A1:A10)"
...
...
Next

Thanx in advance

--
Best Regards,

Faraz

'For Loop' For Selected Sheets/As Named In A Range
 

Didn't notice. Just looked like homework...

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Mike H" wrote in message
...
Don,

If it is the OP gets a lot of homework judging by the 800+ previous
posts!!!

Mike

"Don Guillett" wrote:

Homework?

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Faraz A. Qureshi" wrote in
message ...
Could one of you experts kindly provide a sample code so as to
determine
how
to carry out an exercise of "For Loop" in the following cases?

For Each "sheet in the selected sheets"
...
...
Next

and

For Each "sheet with name listed in a range (e.g. Sheet1!A1:A10)"
...
...
Next

Thanx in advance

--
Best Regards,

Faraz