Можна как то отключить переход на исходную строку после двойного клика на сводной  ?(VBA)  
 
у меня и макрос срабатывает и переносит...

столкнулся с проблемой не работают 2 цикла while вместе, по одному работают нормально ....  
в моей понимание ввыполняется сначала один цикл и начинает выполнятся другой …  
 
Код QBasic/QuickBASIC1  
SUB test()  
DIM MyPath, MyPath1 AS STRING  
   DIM iFileName, iFileName1 AS STRING  
   DIM i, j AS INTEGER  
   DIM wba AS Workbook  
   MyPath = "C:\dr\"  
   iFileName = Dir(MyPath)  
    MyPath1 = "C:\de\"  
   iFileName1 = Dir(MyPath1)  
     
   ON ERROR RESUME NEXT  
   Set wba = ThisWorkbook  
   DO WHILE iFileName <> ""  
  FOR i = 2 TO 5  
  IF iFileName = wba.Worksheets("3").Cells(i, 1) THEN  
    Workbooks.OPEN (MyPath + iFileName)  
     
   END IF  
   NEXT i  
   iFileName = Dir  
   LOOP  
   DO WHILE iFileName1 <> ""  
  FOR j = 2 TO 5  
  IF iFileName1 = wba.Worksheets("3").Cells(j, 1) THEN  
    Workbooks.OPEN (MyPath1 + iFileName1)  
   END IF  
   NEXT j  
   iFileName1 = Dir  
   LOOP  
END SUB

у меня возникла проблема нужно не хочет копироваться, когда имена столбиком задаю как переменную ...  
 
часть кода  
 
dim a as string  
a = input("input") 'ввожу например g  
 
worksheets("a").range("& a &6") = as.worksheets("a").[a1] 'если напишу worksheets("a").range("g6") все нормально ....