Bom dia!!

Tente

Sub ADGuias()
 For Each TabName In Sheets(1).Range("A1:A185")
    Sheets.Add
    ActiveSheet.Name = TabName
 Next
End Sub

Obs: Eu não baixei seu arquivo.
Att

AlexandreVBA, bom dia meu camarada!
Você me indicou uma apostila de macro, mas estou terminando minha monografia, preciso entregar e não tive tempo para estudar e fazer uma macro simples como essa.
Mais uma vez te agradeço e em breve estarei ajudando no fórum também.
Um abraço e você salvou mais uma vez meu dia.