# Is this possible?

#### cbzdmh

##### Board Regular
I have a finance workbook, there is a summary sheet, surprisingly called "Summary". Each Cell is a total of the the same cell for the rest of the workbooks.

For example cell A1 has a formula in it, =sum(sheet2:sheet10!A1).

What I was wondering was is if a Macro could be written so when you doubleclick on any cell, a chart or summary table appears in a user form showing the breakdown.

for example

Sheet1 - £5,000
Sheet2 - £4,000
Sheet3 - £12,000
...
..
.

Any thoughts how this could be done, if at all?

Many thanks

### Excel Facts

Square and cube roots
The =SQRT(25) is a square root. For a cube root, use =125^(1/3). For a fourth root, use =625^(1/4).

#### gaj104

##### Well-known Member
If you modify the below code (sourced from http://www.ozgrid.com/forum/showthread.php?t=17028)

Code:
``````Sub FindPrecedents()
' written by Bill Manville
' With edits from PaulS
' this procedure  finds the  cells which are the direct precedents of the active cell
Dim rLast As Range, iLinkNum As Integer, iArrowNum As Integer
Dim stMsg As String
Dim bNewArrow As Boolean
Application. ScreenUpdating = False
ActiveCell.ShowPrecedents
Set rLast = ActiveCell
iArrowNum = 1
bNewArrow = True
Do
Do
Application.Goto rLast
On  Error Resume Next
If Err.Number > 0 Then Exit Do
On Error Goto 0
bNewArrow = False
If rLast.Worksheet.Parent.Name = ActiveCell.Worksheet.Parent.Name Then
If rLast.Worksheet.Name = ActiveCell.Parent.Name Then
' local
stMsg = stMsg & vbNewLine & Selection.Address
Else
stMsg = stMsg & vbNewLine & "'" & Selection.Parent.Name & "'!" & Selection.Address
End If
Else
' external
stMsg = stMsg & vbNewLine & Selection.Address(external:=True)
End If
Loop
If bNewArrow Then Exit Do
bNewArrow = True
iArrowNum = iArrowNum + 1  'try another arrow
Loop
rLast.Parent.ClearArrows
Application.Goto rLast
MsgBox "Precedents are" & stMsg
Exit Sub
End Sub``````

Hope it helps

#### cbzdmh

##### Board Regular
WOW.

That is the most impressive and comprehensive repsonse ever!

#### cjamen

##### New Member
That is a very cool idea! I could see some great uses for that with some of my spreadsheets. Let me know how gaj104's instructions worked out for you and if you pulled it off........I might have to try too. thanks, cal

#### cbzdmh

##### Board Regular
It works great, i've just added selection.value where needed.

Replies
9
Views
1K
Replies
7
Views
453
Replies
29
Views
2K
Replies
0
Views
383
Replies
4
Views
363

1,190,587
Messages
5,981,805
Members
439,735
Latest member
Cbegg

### We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.

### Which adblocker are you using?

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

### Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

### Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back