Perhaps stating the sheets you want to ignore like this:

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
If Sheet.Name = "Sheet1" Or Sheet.Name = "Sheet2" Then GoTo Nxt
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
Nxt:
Next I
End Sub

Rob P;309469 Wrote:
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





Code:
--------------------

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


--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=86523