Loop through worksheets and exclude some

How should I improve this code?

Sub dad()
Dim i As Long
Worksheets("All").Select
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "All" Or Worksheets(i).Name <> "Elements" Or Worksheets(i).Name <> "Graphs" Then
Worksheets("All").Rows(1).Copy Worksheets(i).Range("A1")
Else
i = i + 1
End If
Next i

End Sub

Thanks