Bom dia!!

Eu não entendi muito bem, mas tente

=TEXTO(ALEATÓRIOENTRE(1;1000);"000-0")

Att

Não especifiquei corretamente
Desejo que o sistema gere o codigo desta maneira
O primeiro registro seria 001-1 e a partir do primeiro registro ele fosse aumentando o codigo em 1
Ficaria neste formato 001-1, 001-2, 001-3 ....
Segue abaixo como estou fazendo agora:

Private Sub UserForm_Initialize()
Dim wsCadastro As Worksheet

Set wsCadastro = Worksheets("Cliente")

lastRow = wsCadastro.Cells(Rows.Count, 1).End(xlUp).Row - 1

lbl_CodCli = Format(lastRow + 1, "100")

End Sub

veja se ajuda:

Dim codigo

codigo = 11

codigo = codigo + 1

código = Format(codigo, "00#-#")