[COLOR="Navy"]Sub[/COLOR] MG25Jul46
[COLOR="Navy"]With[/COLOR] Range("A1", Range("A" & Rows.Count).End(xlUp))
.Value = Evaluate("if(row(), " & .Address & "*-1)")
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]With[/COLOR]
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]