I know how to create and save simple add-ins but this one is a bit more
extensive and it involves more than just the regular module. I do not know
how to turn this Macro into a add-in or if it is even possible. Any help
would be grateful.

'This is the code in the workbook
Private Sub Workbook_Open()
Call TurnOnEvent

End Sub
__________________________________________________ __


'This is the code that is in Module1
Public bEnable As Boolean
Dim myobject As New Class1
Sub TurnOnEvent()
Set myobject.appevent = Application

End Sub



Public Sub RowHighlighter()
If Not bEnable Then
bEnable = True
Else
bEnable = False
End If
End Sub
__________________________________________________ ______________

'This is the code that is in the Class Module (Class1)
Option Explicit

Public WithEvents appevent As Application

Private Sub appevent_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
Static Old As Range
Static colorindxs(1 To 256) As Long
Dim i As Long
If bEnable Then
If Not Old Is Nothing Then
With Old.Cells
If .Row = Target.Row Then Exit Sub
For i = 1 To 256
.Item(i).Interior.ColorIndex = colorindxs(i)
Next i
End With
End If
'Set Old = Cells(Sh.ActiveCell.Row, 1).Resize(1, 256)
Set Old = Cells(Target.Row, 1).Resize(1, 256)
With Old
For i = 1 To 256
colorindxs(i) = .Item(i).Interior.ColorIndex
Next i
.Interior.ColorIndex = 36
End With
End If
End Sub