Lav kode på alle sider, undtaget forsiden

Hvordan får jeg en makro til at lave det samme på alle sider undtaget forsiden?
Jeg har f.eks. denne, jeg prøvet at starte med ActiveSheet.Next.Select, desværre uden held

Sub IndsætNavn()
    Dim ws As Worksheet
    Dim sname As String
    For Each ws In Worksheets
        ws.Select
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=+VLOOKUP(R[-1]C,Forside!C:C[1],2,FALSE)"
    Next ws
End Sub