Why did my code provide exactly the information you were looking for in the file you posted ?
If you analyse the code you will understand why it does.
It only runs with 'option explicit' removed/marked out.
Did you alter anything in the file before running the code ?
Try this alternative
Sub M_snb() For Each it In Sheets(Array("Survey_Import_Data", "Survey_Import_Comments")) For Each it1 In it.ListObjects c00 = c00 & vbLf & it1.Name & "_" & it1.Range.Columns(1).SpecialCells(2).Count Next Next MsgBox c00 End Sub





Reply With Quote