Cycle sheets&copy paste values

[DanK]

Trying to write code to perform a copy/paste values action on all sheets except one. I started with this but not sure if it is even close.
If the "Index" page is first in the series does it stop there?

For i =1 Worksheets.Count
if sheets(i).Name <> "Index"
Sheets(i).Activate
RNG= Sheets(Worksheets(i).Range("A1:AZ5004")).cells.select 'trying to just select the whole sheet.
RNG.Copy
Worksheets(i).Range("A1:AZ5004").PasteSpecial xlPasteValues
End if
Next i

 

[Trevor G]

Think about using something like usedRange or CurrentRegion

with activesheet
.Range("A2").CurrentRegion.Copy
end with

 

[DanK]

Figured it out ten minutes after i asked....

For i = 1 To Worksheets.Count
If Sheets(i).Name <> "Index" And Sheets(i).Name <> "Template" Then
Sheets(i).Activate
Range("A1:AZ5004").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Range("A1").Select
Application.CutCopyMode = False

End If
Next i