you could add the macro to the menu (Tools->Customize->Menu tab). You can put the border on a different sheet by using a different index (sheet1 is index 0, sheet2 is index 1, etc.) and on a different cell by using a different column,row position (A1 is 0,0 A2 is 0,1 B1 is 1,0) and on a different side by using LeftBorder, TopBorder, or BottomBorder instead of RightBorder. Dim oSheet : oSheet = (0)ĭim oCell : oCell = oSheet.getCellByPosition(0,0)ĭim oBorder As New .BorderLine