When I run this, it says "Runtime error 1004" "the macro 'file.xls!health' cannot be found"

any advice?

[VBA]For Each cell In Range("MyRange")

If cell.Value Then

Workbooks.Open cell.Offset(0, 1).Value2 _
, UpdateLinks:=3
Run ActiveWorkbook.Name & "!Health"

Exit For
End If
Next cell[/VBA]