This example determines whether the specified HTML project item is open; if the item is open, the example then loads script from the specified file.
If ActiveWorkbook.HTMLProject.HTMLProjectItems _
.Item(1).IsOpen Then
ActiveWorkbook.HTMLProject.HTMLProjectItems _
.Item(1).LoadFromFile ("C:\MyScript.txt")
Else
MsgBox "The HTMLProjectItem is not open."
End If