Add an event handler to the sheet containing
the "self refreshing" querytables

Assuming your Querytable is named AdoQuery1,
and is located on sheet1 (or at least not on sheet2 :)

then following would record it's change in sheet2




Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Name.Name
Case Me.Name & "!AdoQuery1"
With Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(1)
.Cells(1, 1) = Now
.Cells(1, 2) = Target.Cells(2, 1)
End With
Case Else
Stop
End Select
End Sub


Adapt as needed <g



keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


EduardoDon wrote:


::

Hi there,

Looking for HELP on VB code for the following:

Need to copy and save specified ranges on a continual refreshing sheet
to another specified range of a new sheet.

Say,