Belinda,

Is this what you mean?

Dim endcell As Range, LastRow As Long, lastColumn As Byte

LastRow =
ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.R ows.Count).Row
lastColumn =
ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRang e.Columns.Count).Column

Debug.Print "Querytable Range is " & Range("D11:" & Cells(LastRow,
lastColumn).Address).Address



--
HTH
Roger
Shaftesbury (UK)





"Belinda" wrote in message
om...
Hello All

I run a database query from Excel that populates data starting at D11
as follows:

Range("D11").Select
Selection.QueryTable.Refresh BackgroundQuery:=False



Now I want to know what range of cells in the worksheet have been
populated by the query how can we find it ?.

I looked for various functions on the QueryTable I cannot find any
information on how to obtain the Worksheet range that the QueryTable
as populated can you please let me know how I can find the worksheet
range populated by the QueryTable.

Thanks
Belinda