>>526

Sub Macro1()
  Dim c As Range

  Set c = Cells(1, 1)
  On Error Resume Next
  Set c = Union(c, Cells(1, 1).Dependents)
  On Error GoTo 0
  
  If Not c Is Nothing Then c.Select

End Sub