Dim wB As Workbook, wS As Worksheet
Set wB = ActiveWorkbook
Set wS = wB.Sheets("Sheet1")
'or
Set wS = wB.Sheets(1)
'or
Set wS = wB.ActiveSheet
'or if codename for a sheet has been set to mySheet
Set wS = mySheet
' or scan worksheets collection to find sheet
For Each wS In wB.Worksheets
If wS.Name = "Sheet1" Then Exit For
Next
AutoFill options can be set in the Tools > Options; I am not sure what you
are trying to do in terms of AutoDates?
--
Regards,
Nigel
(E-Mail Removed)
"muskkate" <(E-Mail Removed)> wrote in message
news:70329D7D-7596-4D11-8524-(E-Mail Removed)...
> Hello,
>
> How can I get Worksheet Object from Workbook object, and then how can I
> identify Autodates in Excel sheet
> Please help me out as early as possible
>
> thanking you,
>
>