Caro Marcelo,
para resolver seu problema você pode cirar um variavel publica que será incrementada, ou seja, uma variavel que receberá os numeros subsequentes (2,3,4...) e a mesma dará o nome da planilha.
'criamos uma variavel n publica do tipo integer
Public n As Integer
Sub Criaplanilha()
'criamos uma macro para criar copiar a planilha "1"
n = n + 1
'se n = 1 então some +1 ao valor de n
If n = 1 Then
n = n + 1
End If
'a nova planilha recebe o nome de n
Sheets("1").Select
Sheets("1").Copy Before:=Sheets(1)
Sheets("1 (2)").Select
Sheets("1 (2)").Name = n
End Sub
Samuel Rodrigues Office Developer SENAI Areias Recife - PE
