Исключить активный лист

Question

У меня есть макрос здесь. Поэтому он получает имена листов, но я хочу исключить отображение активного листа. Я пробовал делать i=2, который работает, но я не хочу, чтобы там была пустая строка. Есть идеи?

Sub GetNames() 

    'Headers 
    Range("A1").Value = "File Name " 
    Range("B1").Value = "Sheet Name " 
    Range("C1").Value = "Column Name" 

    For i = 1 To Sheets.Count 
     Cells(i + 1, 2) = Sheets(i).Name 
     Cells(i + 1, 1) = ActiveWorkbook.Name 
    Next i 

End Sub 

Answer 1

Dim intRow As Long: intRow = 2 

For i = 1 To Sheets.Count 
    If Sheets(i).Name <> ActiveSheet.Name Then 
     Cells(intRow, 2) = Sheets(i).Name 
     Cells(intRow, 1) = ActiveWorkbook.Name 
     intRow = intRow + 1 
    End If 
Next i