Sub FreezeData()
Dim MyQT As QueryTable
Dim i As Long
Dim j As Long
For Each Sheet In Sheets
i = Sheet.Index
For j = Worksheets(i).QueryTables.Count To 1 Step -1
Set MyQT = Worksheets(i).QueryTables(j)
MyQT.Delete
Next
Next
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Jana" wrote in message
ups.com...
Thanks,
I never knew that could cause a problem...I am still pretty new at
coding in excel. How would you recommend the code be altered?
Jana