Muito boa tarde a todos!

Pra evitar um trabalhão, estou desenvolvendo um código para CRIAR e RENOMEAR abas de uma planilha, sendo que o nome estará indicado na coluna 1. Até ai tudo bem, o problema é que toda vez que rodo a macro dá uma mensagem de erro dizendo que utilizei caracter proibido. Pretendo nomeá-las com datas no formato mm-aaaa. O estranho é que manualmente eu consigo tranquilamente, porém via código aparece erro. Alguém sabe se tem solução?

O código que estou tentando utilizar é este:

Sub InserirNomear()
For i = 1 To 156
If Sheets("NomeDasAbas").Cells(i, 1) <> "" Then
Sheets.Add After:=Sheets(Sheets.Count)
Worksheets(Worksheets.Count).Name = Sheets("NomeDasAbas").Cells(i, 1).Value
End If
Next
End Sub

A Planilha com o código está neste endereço: http://www.sendspace.com/file/r7osj0

Desde já ficarei imensamente agradecida, caso alguém aponte alguma solução.