Putting conditional formatting on a page after it's created in vba

[kadain]

Hi guys am looking to code in a condictional formatting to a newly created sheet via vba
This intales highlighting the row orange when you click on a cell between a certain range(Any range will do ill edit it to what i need)
i would just set it up when i use it my self manually but unfortantly the workbooks is for other peoples use and they are not excel friendly
Please any help would be great

 

[kadain]

Your private sub looks like is causing wrong behavior of this sub

yeah i think your right cause i fixed the other sheet by changing the range to
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim testRange As Range
Dim myRange As Range
Dim selectedRow As Long
Set testRange = Range("$A$1:$O$5000")
Set myRange = Selection
If Not Intersect(testRange, myRange) Is Nothing Then
selectedRow = ActiveCell.Row
ActiveSheet.Rows.Interior.Color = xlNone '<== optional
ActiveSheet.Rows(selectedRow).Interior.Color = RGB(255, 192, 0)
End If
End Sub

 

[kadain]

Your private sub looks like is causing wrong behavior of this sub

yes i think your right am trying to intergrate the two of them but having no luck the other bit of code i used is

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("C2")) Is Nothing Then ProductCode
End Sub

 

[Sparcot]

yes i think your right am trying to intergrate the two of them but having no luck the other bit of code i used is

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("C2")) Is Nothing Then ProductCode
End Sub

For me it's working fine. I cannot understand the problem. Could you explain it better?

 

[kadain]

on the sheet am adding your code too, it already has a private sub for the sheet to do some function
i think the priavte sub the sheet has already :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("C2")) Is Nothing Then ProductCode
End Sub
is interfering with your code and causing it to debug

 

[Sparcot]

on the sheet am adding your code too, it already has a private sub for the sheet to do some function
i think the priavte sub the sheet has already :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("C2")) Is Nothing Then ProductCode
End Sub
is interfering with your code and causing it to debug

show the error