I have the following code to create a summary sheet looping through
multiple worksheets

how do I add in lines to NOT include sheets named:
data
template
1 day moves
3 day moves




Sub MakeSummary_1day()
Dim J As Long
Dim I As Long
Dim Tab_Name As String
Sheets.Add.Name = "1 day moves"
Sheets("1 day moves").Select
Range("$A$3:$EK$104").Value = ""
J = 3
For I = 2 To Sheets.Count

Range("A" + Format(J)).FormulaR1C1 = Tab_Name
Range("B" + Format(J)).FormulaR1C1 = "='" + Tab_Name + "'!
R5C11"
Range("C" + Format(J)).FormulaR1C1 = "='" + Tab_Name + "'!
R5C12"
Range("D" + Format(J)).FormulaR1C1 = "='" + Tab_Name + "'!
R5C13"


J = J + 1

Next I

End Sub




MANY THANKS