> Ka negerai darau ? Ismeta klaidas (prisegti printscreen'ai):
>
>
> Private Sub Worksheet_Change(ByVal Target As Range)
>    If Target.Address = "$B$1" Then
>
>    With ActiveWorkbook.ActiveSheet.QueryTables(1)
>        .BackgroundQuery = False

Mano supratimu trūksta aiškaus ActiveWorkBook ir ActiveSheet įvardinimo...:)