T4210_Divide By 100 Using Evaluate Trick

https://excel-egy.com/forum/t4210
---------------------------------

Sub Divide_By_100_Using_Evaluate_Trick()
    With Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        .Value = Evaluate("IFERROR(IF({1}," & .Address & "/100),"""")")
    End With
End Sub