VBA loop through sheets in a workbook

Question

I have the following code that loops within a sheet, but I'm trying to loop this code throughout all sheets in my workbook except for one sheet labeled "Summary". Can someone help writing this code out? I've tried some approaches but haven't had luck. Here's the code I'm trying to loop throughout the workbook:

For i = 2 To LR

    If Abs(Range("J" & i)) > 0 Then
        Range("A" & i & ":J" & i).Copy
        Sheets("Sheet1").Range("A" & k).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False

    k = k + 1

    Else

    End If

Next i

Answer 1

Please try something like this

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Summary" Then
    'Your code here
    End If
Next