Attribute VB_Name = "testbooknew1"
Sub ƒeƒXƒg()
    
    Workbooks.Add
    
End Sub