Hi All,

With the below statement I am trying to put "EUR" in column C as long
as there is a value in column A. Unfortunately column C stays empty.
Does anyone know what goes wrong or should I use a different
statement?

Thanks a lot!
Regards,
Robert


Dim aLastRow As Long, aNextRow As Long
Dim a As Long
aNextRow = 5
With Worksheets("BarraFormatLiabilities")
aLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For a = 1 To aLastRow
If .Cells(a, "A").Value = "" Then
aNextRow = aNextRow + 1
.Cells(a, "C").Value = "EUR"
Value.Paste
End If
Next a
End With