Looping Worksheet Macro - Skip a Sheet

Hi,
I have this macro to cycle through all worksheets, retrieve data and paste into the "Test Lookup" sheet, but I want to skip one worksheet (called "Specs").

Any thoughts on how? Thanks.

Sub Macro3()
'
' Macro3 Macro
'

'
 Dim i As Long
 For i = 1 To Worksheets.Count

    Sheets(i).Select
    Range("G9:H9").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Test Lookup").Select
    Range("A65535").Select
    Selection.End(xlUp).Select
    Selection.Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets(i).Select
    ActiveWindow.SmallScroll Down:=-9
    Range("P9").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Test Lookup").Select
    Range("c65535").Select
    Selection.End(xlUp).Select
    Selection.Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Next i
    
    
End Sub