Worksheet tabs

L

Lalala

Can you put a date in a worksheet tab and drag it across other tabs to auto
fill consecutive dates? If so, how?
 
S

smart.daisy

EXCEL doesn't support this fuction. You can use belowed code. You have to set
up a list in one of any worksheet in column A1-A31 (or any column you'd
like,don't forget to change below code if you use other columns).I try to use
format like 01012006,01022006,01032006.........not any problem. You have to
setup enough worksheets before you run this code. In this case, you need 32
worksheets.

Sub namesheets()

Dim arr As Variant
arr = Range("a1:a31").Value
For i = LBound(arr) To UBound(arr)
Sheets(i + 1).Activate
Sheets(i).Name = arr(i, 1)
Next i
End Sub
 
Top