Question

I’m making a ExcelComparer but I bump into a probably obvious error, I clearly missed something.

I run a vba macro in Excel 2007

The exact error I get is “Run-time Error 13: Type Mismatch”
This happens when the loop tries to fetch the second worksheet.name .
So, the first sheetname is returned fine

Below you find the macro

Thanks in advance,
L

Sub compare()

Dim strWorkbook1, strWorkbook2 As String
Dim Workbook1, Workbook2 As Workbook
strWorkbook1 = Worksheets("Sheet1").Range("C5") & Worksheets("Sheet1").Range("D5")
strWorkbook2 = Worksheets("Sheet1").Range("C6") & Worksheets("Sheet1").Range("D6")

Set xlapp = CreateObject("Excel.application")
Set Workbook1 = xlapp.Workbooks.Open(strWorkbook1)
xlapp.Visible = False

Dim ws As Worksheet
For Each ws In Workbook1.Sheets
  'ws.Select
  If Not ws.Visible = xlSheetVeryHidden Then
      MsgBox (ws.Name)
  End If
Next ws
xlapp.Close
End Sub

Answer 1

Use this for your For loop:

For Each ws In Workbook1.Worksheets

From MSDN the difference between the Sheets and Worksheets properties are:

This property does not return macro sheets, charts, or dialog sheets.
Use the Sheets property to return those sheets as well as worksheets.
You can also use the specialized properties Excel4MacroSheets and
Excel4IntlMacroSheets to return macro sheets and the Charts property
to return charts.