Attribute VB_Name = "testcellformat3"
Sub ƒeƒXƒg()
    
    Range("A1").Value = 12.3
    Range("A2").Value = 3145.33
    Range("A3").Value = 1.4579
    
    Range("A1:A3").NumberFormatLocal = "?.???"
    
End Sub