VBA Sub 指定した列の値を置換() Replace

Sub 指定した列の値を置換()
    '行と列をi,jにして複数範囲を置換しようとしたが、
    'エラー「型が違う」とか出て無理だったので
    '列を指定してみたら上手く置換した。
    '以下、「男」を「空欄」へ置換する。（値を削除）
    For i = 1 To 30
        If ActiveSheet.Cells(i, 3) = "男" Then
             ActiveSheet.Cells(i, 3) = Replace(Cells(i, 3), "男", "") 'セル削除するとセルが上方へずれるので、セルの値を空白にする。
        End If
    Next
End Sub