[RESOLVED] Set minimum value Column A (VBA)

[Radjesh Klauke]

Hi,

I have a lot of values in column A. A lot of them are below a value of 10, they all should have a minimum of 10. Anyone with a quick VBA solution?

I tried:

Sub test()
    Dim c As Range
    Application.ScreenUpdating = False
    For Each c In ActiveSheet.UsedRange.Columns("A")
        If Trim(c.Value) > 0 And c.Value < 10 Then
            c.Value = 10
        End If
    Next c
    Application.ScreenUpdating = True
End Sub

It should skip empty cells if possible.

Thanks in advance.