Public Sub Проверка()

    Dim qryTable As QueryTable
    Dim rngDestination As Range
    Dim strConn As String
    Dim strSQL As String

    With Sheets("nds")
        .Activate
        .Range("C1").Clear

    End With


' Define the connection string and destination range.
strConn = "ODBC;DRIVER=SQL Server;SERVER=C1SQL;Integrated Security=SSPI;APP=Microsoft Office Excel;WSID=Report;DATABASE=master"

' Create a parameter query.
strSQL = "EXEC [NodeBU250SQL2005].[dbo].[sp_st_delete_nds] @rb = 0, @NDoc = '" & Range("A1").Value & "', @DDoc ='" & Range("B1").Value & "'"