Hi,

I want a loop which will stop if the activesheet is "Sheet2" of the
workbook.

Regards

Heera

Found = False
for sht in sheets
if sht.name = "Sheet2" then
Found = true
exit for
end if
next sht
if Found = true then
'enter your code here
end if

"Heera" wrote:

Hi,

I want a loop which will stop if the activesheet is "Sheet2" of the
workbook.

Regards

Heera

Try a construction like this...

Dim WS As Worksheet
.....
.....
For Each WS In Worksheets
If WS.Name = "Sheet2" Then
'
' You found Sheet2, so execute your code here
'
Exit For
End If
Next
......
......

Note the Exit For statement after your Sheet2 code... that stops the loop
from continuing on (you already found Sheet2, so there is no longer any need
to keep looping looking for it).

Rick


"Heera" wrote in message
...
Hi,

I want a loop which will stop if the activesheet is "Sheet2" of the
workbook.

Regards

Heera

Thank you but I used this code.

Do While ActiveSheet.Name < "Sheet2"

My entire procedure

Loop