On Apr 15, 3:08*pm, Simon Lloyd
wrote:
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

I cannot get this to work...