I guess I need another good nights sleep because I'm stumped.
Following is the code I'm having problems with. I can't figure out
why it isn't saving and closing the file I opened with GetObject.
I've commented as much detail as I could to help with looking at
this. Thanks for any help you can give.

Sub SaveInfo() 'Changing this to Function does not fix

Dim sMyValue As String
Dim iTimeToWrite As Integer, iCounter As Integer
Dim lRow As Long
Dim wbMyWorkbook As Workbook
Dim wsMySheets(2) As Worksheet

'This worksheet belongs to the file that contains this sub() and is
open at this time.
Set wsMySheets(1) = Worksheets("Data for transfer")

sMyValue = wsMySheets(1).Cells(8, 1)

'The following line does not wrap in excel therefore there isn't a
need for the _ linker thingy. Just displays this way in this post.
Set wbMyWorkbook = GetObject
("\\Server\shareddocs\Receiving\Receiving Trends.xls")

'When the file was saved (saved it manually) nothing was hidden so
don't understand why it opens hidden.
wbMyWorkbook.Windows("Receiving Trends.xls").Visible = True

Set wsMySheets(2) = wbMyWorkbook.Worksheets("Data")

iTimeToWrite = False
wsMySheets(2).Application.Goto ("R1C1")

lRow = 0
Do
lRow = lRow + 1
If wsMySheets(2).Cells(lRow, 1).Value = "" Then iTimeToWrite
= True
If wsMySheets(2).Cells(lRow, 1).Value = sMyValue Then
iTimeToWrite = True
Loop While iTimeToWrite = False

For iCounter = 1 To 24
wsMySheets(2).Cells(lRow, iCounter) = wsMySheets(1).Cells(8,
iCounter)
Next iCounter

wsMySheets(2).Range("A1").Activate

'Everything works up to this point. The following two lines do not
execute. Sub() completes with no error messages that come up.
wbMyWorkbook.Save
wbMyWorkbook.Close

Set wbMyWorkbook = Nothing
Set wsMySheets(1) = Nothing: Set wsMySheets(2) = Nothing
sMyValue = ""
iTimeToWrite = 0: iCounter = 0: lRow = 0

End Sub