create a autonumber using macro

Maybe

This code calls the function

Sub RandomNumbers()
ActiveCell.Value = RandomNumber(1000, 9999)
End Sub

Here's the function

Public Function RandomNumber(Lowest As Long, Highest As Long)
' Generates a random whole number within a given range
   Randomize
   RandomNumber = Int(Rnd * (Highest + 1 - Lowest)) + Lowest
End Function

VBA Noob

Hi,

Yes there is

Sub rndnumber()
Randomize
ActiveCell.NumberFormat = "0000"
ActiveCell.Value = Round(Rnd() * 9999, 0)
End Sub