Run time error 9 subscript out of range

You mean like this? If so, I get a compile error: syntax error

    For MsgBox cell.Address(0,0) &  " - "cell.Hyperlinks.Count Each cell In ThisWorkbook.Sheets("Sheet1").Range("B1:B10")