Упростить процедуру, меняются только наименование листа и столбца

[IgorGO]

Меняется в ней только наименование листов (по порядку от "01" до "25") и наименование столбцов (их тоже 25

for i = 1 to 25
  with worksheets(i).columns((i-1)*2+1)
    .cells(5) = "Vasyan"
  end with
next

это запишет слово Vasyan в 5-ю строку
на первом листе в колонку А
на втором - в С
на третьем - в Е
...
на 25-м - в колонку AW

[IgorGO]

видите?

на каждом новом витке цикла запись слова Vasyan происходит в 5-ю строку, но на след. листе и по очереди в колонки А, С, Е ... AW