Создать список всех имен листов в рабочей книге

Question

У меня есть этот код, который создает новый лист в книге и перечисляет все имена листов в столбце, которые работают нормально, но я бы хотел, чтобы он оставил 27 пустых строк между именами листов

Dim xWs As Worksheet 

On Error Resume Next 

Application.DisplayAlerts = False 

xTitleId = "All Sheet Names" 

Application.Sheets(xTitleId).Delete 

Application.Sheets.Add.index 

Set xWs = Application.ActiveSheet 

xWs.Name = xTitleId 

For i = 2 To Application.Sheets.Count 
    xWs.Range("A" & (i - 1)) = Application.Sheets(i).Name 
Next 

Пример это, как она перечисляет их сейчас

И это, как я хочу, чтобы перечислить их с пустыми пространствами между каждым именем листа

Answer 1

ОП сказал 27 пустых рядов между ними, поэтому следующий ряд будет 28 строк вниз.

For i = 2 To Application.Sheets.Count 

    xWs.Range("A" & ((i - 1) * 28) - 27) = Application.Sheets(i).Name 

Next