Arkadaşlar, aşağıdaki kodu nasıl eklenti haline dönüştürebilirim acaba? Bir şeyleri gözden mi kaçırdım bilemiyorum, bir türlü yapamadım. Yardımlarınız için şimdiden teşekkürler.
Kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Interior.ColorIndex = 6 Then
Range("A" & Target.Row & ":H" & Target.Row).Interior.ColorIndex = xlNone
Target.Offset(1, 0).Select
Else
Range("A" & Target.Row & ":H" & Target.Row).Interior.ColorIndex = 6
Target.Offset(1, 0).Select
End If
End Sub