排除活动工作表

我在这里有一个macros。 所以它得到工作表名称，但我想排除显示活动工作表。 我试图做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