Ignore/skip worksheet

[angelmaine4ever]

Hi I have this code below that combines multiple worksheets data into one worksheet (Master).

I need to skip one of the sheets (READ ME is the tab name).

PLS. NEED YOUR HELP. THANKS!!!

Option Explicit
 
Sub Button2_Click()
Dim Sht As Worksheet
For Each Sht In ActiveWorkbook.Worksheets
If Sht.Name <> "Master" Then
Sht.Select
Range("A:A").Insert
Range("A2").Formula = "=Mid(Cell(""filename"",B1),Find(""]"",Cell(""filename""))+1,255)"
Range("A2").Copy
Range("A2").PasteSpecial Paste:=xlPasteValues
Range("A2:K2").Copy
Sheets("Master").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sht.Select
Range("A:A").Delete
Else
End If
Next Sht
End Sub

 

[BrianJN1]

Not sure but I think this will work:

"If Sht.Name <> "Master" OR Sht.Name <> "Read Me" Then"

Your fourth line of code.

 

[angelmaine4ever]

Not sure but I think this will work:

"If Sht.Name <> "Master" OR Sht.Name <> "Read Me" Then"

Your fourth line of code.

Thank you, Sir! However, it didn't work.

 

[BrianJN1]

I was going to suggest AND rather than OR in that formula but I doubted that.

Not having something concrete to work with (and being much of an amateur) I'll give this as a chance.
It is saying to let everything other than "Read Me" pass. I'm a bit concerned about the Else and End If that I've added at the end.
In fact I don't think that either of us need the ELSE before terminating the IF statements.

Sub Button2_Click()
Dim Sht As Worksheet
For Each Sht In ActiveWorkbook.Worksheets
If Sht.Name <> "Master" Then
[COLOR=#ff0000]If Sht.Name <>”Read Me” then[/COLOR]

Sht.Select
………..
 
Range("A:A").Delete
Else
End If
[COLOR=#ff0000]Else
End if[/COLOR]
Next Sht
End Sub