Macro para gerar guia

[Max Carvalho]

Boa noite, gostaria de saber como criar uma macro para gerar uma guia idêntica a anterior mudando apenas o nome da guia e com uma célula gerando uma numeração automática que essa numeração siga uma sequencia de ano/mês-numeração(0001,0002,0003...).

[zinhovba]

Boa noite!!

Leia:

http://support.microsoft.com/kb/288402

Option Explicit

Sub test()
Dim i As Long, s As String, s2 As String
s = "SeuNome"
s2 = s
ActiveSheet.Copy Before:=Sheets(1)
Do While WorksheetExists(s2)
    i = i + 1
    s2 = s & " " & i
Loop
ActiveSheet.Name = s2
End Sub


Function WorksheetExists(WSName As String) As Boolean
On Error Resume Next
WorksheetExists = Worksheets(WSName).Name = WSName
On Error GoTo 0
End Function

Att

[Max Carvalho]

Faltou apenas a parte da numeração automática, do tipo tenho a primeira guia com uma numeração 2013/10-0001, gero outra guia com a macro acima, porém a célula D1 onde fica a numeração, preciso que mude de acordo com a guia anterior. no caso (guia1, celula D1, 2013/10-0001 e quando gerar guia2 a celula D1 desta guia passe para 2013/10-0002). Teria como? Alguém mais pode ajudar?