How to run a VB macros code on Query refresh?

Question

Hi BW gurus,
Please help me out with this task.
I have a macros as below
<b>Sub Table_To_Cons()
    'Copy the occupied rows
    Application.DisplayAlerts = False
    TargetSheet = ActiveSheet.Name
    Sheets("Table").Activate
    j = 2
    For i = 21 To 65536
        If Range("F" & i).Value = "" Then
            'MsgBox "The Cell is Empty"
        Else
            f = Range("F" & i).Value
            g = Range("G" & i).Value
            Sheets("Consolidated Data").Range("A" & j).Value = f
            Sheets("Consolidated Data").Range("B" & j).Value = g
            j = j + 1
        End If
    Next
    Sheets("Consolidated Data").Activate
    MsgBox "Finished"
    ' Update Chart
    Sheets("Chart1").Select
    ActiveChart.PlotArea.Select
    ActiveChart.SetSourceData Source:=Sheets("Consolidated Data").Range("A2:B6") _
        , PlotBy:=xlRows
End Sub</b>
User are not interested to run the VB macros manually.
Instead they are asking like this.The macros should run and show the latest result everytime when we refresh the query.
Can someone help me out how to achieve this.
Any kind of help is appreciated.
Thanks in Advance
Have a nice day
Regards
Sam Mathew

Answer 1

Hi Sam,
Very interesting that the Properties dialog has changed.  I have no experience with NW2004s.  I will answer your questions based on what I do have experience with; then, we will need to do some testing to check my assumptions.
Your first question: does this subroutine already exists in a workbook, or do we have to manually type it in?  In the days before Excel 2002, the answer was "yes", the subroutine already exists.  Since Excel 2002, the answer is maybe.  More often than not, "no" ... and you have to type it in.
But, whether it exists or not, you will find out when I answer yoru second question:  exactly where should I search for it?  Since you have written a macro, you already know about the Visual Basic Editor (VBE).  Since I am not sure how much you know about the VBE, I will explain it as if you know nothing.  Please do not be offended.
As a general orientation to the Visual Basic Editor (VBE), there are 4 Windows you want to become familiar with:
1.     the Project Explorer Window;
2.     the Properties Window;
3.     the Object Browser Window; and,
4.     the Code Window.
You should see the Project Explorer window on the left side of the VBE.  If it is not already visible, make it visible in one of 3 ways:
i.     use the VBE menu bar and select View >> Project Explorer
ii.     use shortcut keys Ctrl+R
iii.     use the VBE Standard toolbar and select the icon for Project Explorer
In the Project Explorer window you can all of the "Projects" (workbooks and add-ins), that are loaded. 
In the view of your workbook (the one with the macro) there are at least twol groups of "objects" shown:
•     Microsoft Excel Objects (these are Worksheets and Workbooks)
•     Modules (I call these "General Code Modules")
There are two other possible types of objects:
+  Forms
+  Class Modules
Visual Basic Code is always written in a Code Window.  There are 3 types of code windows:
i.     Object Code Windows
ii.     General Code Modules
iii.     Class Modules
When you use the Excel macro recorder, it always creates the macro in a General Code Module.  The subroutine SAPBEXonRefresh also will be in a General Code Module. 
To find it (if it exists), you can start in any code module in your workbook, press Ctrl+F, enter SAPBEXonRefresh, click the radio button to Search in Current Project.
Now, to test my assumptions ... while you are in the Visual Basic Editor, with the Project Explorer Window open, please look under Microsoft Excel Objects and see if there is an object named "SAPBEXqueries".  If not, stop right there.  I cannot help you.
If the SAPBEXqueries object is there, let me explain what it is.  This is a worksheet that is VERY hidden.  That means, it is hidden so that it cannot be made visible from Excel.  It can only be made visible from the VBE.  Let's do not now.
Select the SAPBEXqueries object (double-click), then open the Properties window in the VBE.
You can open the properties window using:
+  View Properties Window
+  press F4
+  use the standard toolbar and click the Properties icon
Look at the Visible property.  It should 2 - Very Hidden.  Change it to Visible.  Now switch back to the Excel view.  Look in cell F4.  What do you see in this cell?  It should be:  SAPBEXq0001, or something very similar to that.
Now (still in Excel) open the GoTo dialog (Edit >> Go To; or, press F5).  This will list all of the Named Ranges in the workbook.  If you are on the SAPBEXqueries worksheet, the GoTo dialog should list a number of Named Ranges starting with SAPBEXq000,,,,,  Do you see this?
I am very interested to learn what you see when you do these things.  And, I am very willing to answer any questions you have as a result of doing this testing.
By the way, when you make the SAPBEXqueries worksheet hidden again, be careful.  As soon as you make it hidden (or very hidden), the selection in VBE will change to an object that is NOT hidden.  So, if you are not watching carefully, you might think that you are still on the SAPBEXqueries sheet and that you failed to hide it.  And, pretty soon, if you are not careful, you will have hidden every worksheet in the workbook!
- Pete