Dim Sheet as Variable and Select

Any idea what's wrong here?


Sub Define_Sheet()

Please Login or Register  to view this content.

sub define_sheets

Dim Sheet As Sheets
Dim i as integer
For i=1 to Sheets.count
with sheets(i)
.select
If .Name = Left("Header", 6) Then
Set DTS = ActiveSheet
End If
end with
Next i

End Sub