Ændre denne VBA kode, så den kan kaldes vha. makro
Der er en der har venlig at lave denne kode til migDet koden går er at highligt række man står imed en bjælke.
Dim adr As String
Dim farve
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If adr <> "" Then Rows(adr).Interior.ColorIndex = xlNone
farve = Target.Interior.ColorIndex
Rows(Target.Row).Interior.ColorIndex = 35
adr = Target.Row
End Sub
Den virker fint når jeg sætter den ind på et ark, men jeg kunne godt tænke mig at jeg kan vha. en makro kalde den frem til det aktive ark jeg står i
Mhv. Michael