based on what?

Option Explicit
Sub Macro1()
Dim LastRow As Long
Dim wks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
With wks
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
With .Range("B1:B" & LastRow)
.Formula = "=""Random "" & Row()"
.Value = .Value
End With
End With
Next wks
End Sub

paulinoluciano wrote:

Yes, it is almost the first trend... However instead exhibit always
"Random 1" I have to exhibit Random 1, Random 2, Random 3....

--

Dave Peterson