Change text value randomly based on category

Private Sub CommandButton1_Click()
    Dim cell As Range, i As Long, r As Long
    If Application.CountA(Range("C3:C5")) = 3 Then
        With Sheets("Data").Range("A1").CurrentRegion
            .AutoFilter 4, Range("C3").Value
            .AutoFilter 5, Range("C4").Value
            .AutoFilter 6, Range("C5").Value
            With .Columns(6).SpecialCells(xlCellTypeVisible)
                If .Count > 1 Then
                    r = Int((.Count - 2 + 1) * Rnd + 2)
                    For Each cell In .Cells
                        i = i + 1
                        If i = r Then
                            If cell = "Male" Then cell = "Female" Else cell = "Male"
                            MsgBox "Row " & cell.Row & " changed.", vbInformation, "Gender Change"
                            Exit For
                        End If
                    Next
                Else
                    MsgBox "No rows match the selected Grade/Discipline/Gender", , ""
                End If
            End With
            .Parent.AutoFilterMode = False
        End With
    Else
        MsgBox "Missing Entry.", vbExclamation, "Grade Discipline Gender"
    End If
End Sub

Is it just the gender you wish to change, and are you saying that the random one selected should be changed in the Data?

Hi,

Here's one way in the Command buttn click event

Private Sub Change_Click()
    Dim st As String, ar(), x As Long, y As Long, lRows As Long, c As Long
    st = Sheet2.Range("C3") & Sheet2.Range("C4") & Sheet2.Range("C5")
    lRows = Sheet1.Range("A1").CurrentRegion.Rows.Count - 1

    For x = 1 To lRows
        If Sheet1.Range("G2").Cells(x, 1) = st Then

            ReDim Preserve ar(c)
            ar(c) = x - 1
            c = c + 1
        End If
    Next x

    x = WorksheetFunction.RandBetween(1, c)
    c = 1
    For y = 1 To lRows
        If Sheet1.Range("G2").Cells(y, 1) = st Then
            If c = x Then
                Sheet1.Range("G" & y + 1) = Replace(st, "Male", "Female")
                Exit For
            End If
            c = c + 1
        End If

    Next y


End Sub

Thanks for the rep.