Attribute VB_Name = "test1"
Sub ƒeƒXƒg()
    Dim x
    
    x = 100
    Range("A1").Value = x
    Range("A2").Value = x
End Sub