W
Wen
Hello,
I'd created the following macro in Thisworkbook. But because of this,
the paste function doesn't work any more.
Can someone help?
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
[a3:iq5000].Interior.ColorIndex = 0
If Target.Row > 2 Then
T = "J" & Target.Row & ":K" & Target.Row
Range(T).Interior.ColorIndex = 6
End If
End Sub
Best Regards
Wen
I'd created the following macro in Thisworkbook. But because of this,
the paste function doesn't work any more.
Can someone help?
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
[a3:iq5000].Interior.ColorIndex = 0
If Target.Row > 2 Then
T = "J" & Target.Row & ":K" & Target.Row
Range(T).Interior.ColorIndex = 6
End If
End Sub
Best Regards
Wen