lesley burlingham
Member
I would like a unique reference inserting onto cell E24. I need it to contain data form cell B7 and then a random set of numbers and letter. (5 random letter/numbers)
Sub uniqueIndex()
Dim cCode As String
Dim yCode As Integer
Dim wNum As Integer
Dim rNum As Long
Dim uCode As String
cCode = ThisWorkbook.Sheets("Sheet1").Range("B7")
yCode = Right(Year(Date), 2)
wNum = Format(Date, "ww")
rNum = Int((99999 - 1 + 1) * Rnd + 1)
uCode = cCode & yCode & wNum & rNum
ThisWorkbook.Sheets("Sheet1").Range("E24") = uCode
End Sub