Dim Sheet as Variable and Select

Any idea what's wrong here?


Sub Define_Sheet()

Dim Sheet As Sheets
For Each Sheet In activesheets
If ActiveSheet.Name = Left("Header", 6) Then
Sheet.Select
Set DTS = ActiveSheet
End If
Next

End Sub