Attribute VB_Name = "Module1" Sub Macro1() Attribute Macro1.VB_ProcData.VB_Invoke_Func = " \n14" ' ' Macro1 Macro ' ' Selection.NumberFormat = "0.000" End Sub Sub Macro2() Attribute Macro2.VB_ProcData.VB_Invoke_Func = " \n14" ' ' Macro2 Macro ' ' Worksheets("Sheet1").Columns("A:AZ").EntireColumn.AutoFit End Sub Sub Macro3() Attribute Macro3.VB_ProcData.VB_Invoke_Func = " \n14" ' ' Macro3 Macro ' ' Rows("11:11").EntireRow.AutoFit Rows("11:11").RowHeight = 71.25 Rows("11:11").EntireRow.AutoFit End Sub