如何把Worksheet_SelectionChange 选中变色的功能做到加载宏里 设置成一个功能按钮

monianwen2012

如何把Worksheet_SelectionChange 选中变色的功能做到加载宏里 设置成一个功能按钮 ，然后我打开一个新的excel工作簿之后，我只需要点击那个按钮，就可以实现选中行变色？  加载宏只能加载模块里的宏，这种自定义的功能除了做模板之外没别的办法了吗？

代码在下方和附件的sheet1里
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Rows("1:1").Interior.Color = 15773696
    If Selection.Row > 1 Then

        ActiveSheet.Rows("2:63336").Interior.Color = xlNone
        Selection.EntireRow.Interior.Color = 65535
    End If
End Sub

weiqigreen

解决了吗？