DeSelect the Particular Sheets after Selecting All Sheets

[nagovind]

Dear All

I'm able to select all sheets by the code

ActiveWorkbook.Sheets.Select

Once after selecting all sheets how to deselect the particular sheets with the sheet names starting with SKIP

Please advise
Regards
Govind

 

[Hui]

Govind

You are better off building teh list of worksheets from scratch

Try the following code:

Sub Select_Sheets()
For i = 1 To Sheets.Count
  If Left(Worksheets(i).Name, 4) <> "Skip" Then
  Worksheets(i).Select (False)
  End If
Next 
End Sub

 

[nagovind]

Dear Hui,

Thank you
--
Thanks a lot for your codes

Perfectly worked....

With this code can manipulate as many things....

Regards
Govind

 

[nagovind]

Dear Hui,

Sub Select_Sheets()
For i = 1 To Sheets.Count
If Left(Worksheets(i).Name, 4) <> "Skip"Then
  Worksheets(i).Select (False)
EndIf
Next
EndSub

This code suddenly stopped working
Please help

Regards
Govind

 

[Hui]

The two words
EndIf and EndSub both should have spaces in the middle
eg: End If and End Sub

What else changed?

How is the code ran?

 

[Hui]

Do you still have a worksheet called Skip?

The code works fine for me ?

 

[nagovind]

http://forum.chandoo.org/threads/al...pped-working-worksheets-i-select-false.31045/

Dear Hui,
The issue is with the selection of all sheets. In the above post the issue was stated. Suddenly Worksheets(i).Select (False) stopped working, i have googled this issue and many users reported this issue as well finally other code as mentioned in the above thread worked
Thank you