Put an [Marker:X, Y, Z] in 300 random rows (100 x each Marker)

Note: Can substitute an object ([iRandomCount] as string) for the count (101)

• Use InputBox to allow the user to determine the number of records to mark
  
• Use a percentage of the iRe1 value (iRandomCount = ire1 * .01) (Add Round)

Sub Mark_100_RandomRecords()
Dim Ws1 As Long, iRow As Long, iCol As Long, iLoop As Long, iRe1 As Long, iStartRow As Long
 
'===========================================
'Standard Objects (Some Hard Coded)
'===========================================
Ws1 = ActiveSheet.Index
iRe1 = Worksheets(Ws1).Cells(1048576, 1).End(xlUp).Row
'(Can use InputBox to Prompt User to choose [blank] Column)
    iCol = 3
    iStartRow = 2
'===========================================
 
'===========================================
'Create 3 Random markers
'===========================================
For iLoop = 2 To 101
DoEvents
    iRow = Int((iRe1 - iStartRow + 1) * Rnd + 1)
    Worksheets(Ws1).Cells(iRow, iCol) = "X"
Next iLoop
'===========================================
For iLoop = 2 To 101
DoEvents
    iRow = Int((iRe1 - iStartRow + 1) * Rnd + 1)
    Worksheets(Ws1).Cells(iRow, iCol) = "Y"
Next iLoop
'===========================================
For iLoop = 2 To 101
DoEvents
    iRow = Int((iRe1 - iStartRow + 1) * Rnd + 1)
    Worksheets(Ws1).Cells(iRow, iCol) = "Z"
Next iLoop
'===========================================
 
'===========================================
'Update Header
Worksheets(Ws1).Cells(1, iCol) = "Filter(Random)"
'===========================================
 
'===========================================
'Standard Format
'===========================================
    Cells.Select
    Selection.AutoFilter
    With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 1
    End With
    ActiveWindow.FreezePanes = True
    Cells.EntireColumn.AutoFit
 
    Range("A2").Select
'===========================================
MsgBox "Done"
End Sub