I SAW THIS CODES AND COPIED IT. IT WORKS WELL BUT THE PROBLEM IS IT DOES NOT MOVE TO THE NEXT CELL OF A3. IT ONLY STAYS AT A2 AND KEEPS ON CHANGING THE ID NUMBERS WHENEVER I POST DATA TO THE NEXT ROW OF B3. WILL BE GLAD IF YOU CAN HELP ME MODIFY IT AS WELL
Dim id As String
Dim i As Integer
Randomize
For i = 1 To 5
If Int((2 * Rnd) + 1) = 1 Then
id = id & Chr(Int(26 * Rnd + 65))
Else
id = id & Int(10 * Rnd)
End If
Next i
ActiveSheet.Range("A2").Formula = id
End With