I did get a heck of a good hit on this script.
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & "[path to spreadsheet file]" & _
"Extended Properties=""Excel 8.0;HDR=NO;IMEX=1"""
Set rst = cnn.Execute("Select * from [Sheet1$E785:E785]")
MsgBox rst.GetString
rst.Close
cnn.Close
Set cnn = Nothing
Set rst = Nothing
But I'm still no clue other than : New object/edit script/copy/paste/try looking at other VB stuff within the desktopx world/smash head against wall/take valium.