Run Loop on the sheets other than mentioned

Deleting post N already posted the link in previous post thanks for the correction

You can edit your post to add code tags.

AA CodeTags.jpg

Hi suresh7860,

tmp = Array("Summary", "Not Certified", "STAT Reconciliations", "Blank Account#", "Blank Description", "Blank Line#", "Blank Reference", "Prepd Rec's-Unidentified Bal>1", "Preparere Unassigned", "Approver Unassigned", "Reviewer Unassigned", "Acct Reviewer Unassigned", "Acct Owner Unassigned", "Key should be Non-Key", "Non-Key should be Key", "Blank Risk Rating", "Timelines", "Recon WorkFlow")

If W.Name = WorksheetFunction.VLookup(W.Name, tmp, 1, 0) Then 

do something

else

With w
My code
End WITH

end if

next

One way is to compare the sheet names to a string variable containing the sheets to avoid:

Sub dural()
   Dim ws As Worksheet
   Dim avoid, st As String, c As String
   avoid = Array("Junk1", "Junk2", "Junk3")
   c = Chr(10)
   st = c & Join(avoid, c) & c
   
   For Each ws In Sheets
      If InStr(1, st, c & ws.Name & c) = 0 Then
      
         'process sheet
         MsgBox ws.Name
         
      End If
   Next ws

End Sub

Cross Posted.


Your post does not comply with Rule 8 of our Forum RULES. Do not crosspost your question on multiple forums without including links here to the other threads on other forums.

Cross-posting is when you post the same question in other forums on the web. The last thing you want to do is waste people's time working on an issue you have already resolved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser) to the cross-post.

Expect cross-posted questions without a link to be closed and a message will be posted by the moderator explaining why. We are here to help so help us to help you!

Read this to understand why we ask you to do this, and then please edit your first post to include links to any and all cross-posts in any other forums (not just this site).

Originally Posted by suresh7860

Sorry i am new here and not able to get corrected... i wil keep this in mind will follow it and here is the link which need to be attached

http://www.mrexcel.com/forum/excel-q...ed-sheets.html.

Yep, just follow the picture I attached in my previous post.
Don't say you are not able to do it.
Just go back to your original post and hit "Edit Post" and follow the instructions in the picture.