Sub CheckValues3() Dim colIndex As Integer Dim rwIndex As Integer For colIndex = 1 To 5 For rwIndex = 1 To 10 If Cells(rwIndex, colIndex).Value <> 0 Then _ Cells(rwIndex, colIndex).Value = 1 Next rwIndex Next colIndex End Sub