Run this macro


Sub findqueries()

For Each sht In Sheets
For Each query In sht.QueryTables
MsgBox ("Query : " & query.Name & vbCrLf & _
"Sheet : " & query.Parent.Name & vbCrLf & _
"Row : " & query.Destination.Row & vbCrLf & _
"Column: " & query.Destination.Column)

Next query

Next sht



End Sub


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=149515