Highlight cells having no dependents

[Hiiamsachin]

i need a vba code that would highlights cells already in selection before running the code that has no dependents across the entire sheets in the workbook. It would be of great help to me.

 

[Legacy 143009]

It is a bit sketchy but do the work. You may run Sub test() for testing:

Dim selections As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set selections = Nothing 'Delete this line if you want the previous selections also
  If selections Is Nothing Then
    Set selections = Target
  Else
    Set selections = Union(selections, Target)
    End If
End Sub
Sub test()
  selections.Interior.ColorIndex = 6
End Sub

 

[Hiiamsachin]

This is not working.

 

[Legacy 143009]

Can you describe what you need again?

 

[Hiiamsachin]

Can you describe what you need again?

Sure. I want a macro that would highlight cells that i have selected which have one or more dependent cell in the workbook. If i have selected some cells in excel and any other cell in the workbook is dependent on that cell then the selected cell needs to be highlighted.

 

[Legacy 143009]

Oh, ok.
Paste this code into your sheet. Must do the job:

Dim oldRange As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.EnableEvents = False
  If Not oldRange Is Nothing Then oldRange.Interior.Color = xlNone
  On Error Resume Next
  Dim myRange As Range, c As Range
  Set myRange = Target

  For Each c In myRange.Precedents
    Set myRange = Union(myRange, c)
  Next
  If myRange.Count > 1 Then
    myRange.Interior.ColorIndex = 6
    Set oldRange = myRange
  End If
  Application.EnableEvents = True
End Sub