hello all!

i have the following code which exports a given person's task list to an already created excel spreadsheet. I am getting a Runtime 462 error, telling me: The remote server machine does not exist or is unavailable. I was wondering if anyone could provide some assistance on how to fix this?

here is the code:
[vba]Sub Task_Grab_V2()
Dim sKillExcel As String
Dim strReport As String
Dim olnameSpace As Outlook.NameSpace
Dim taskFolder As Outlook.MAPIFolder
Dim tasks As Outlook.Items
Dim tsk As Outlook.TaskItem
Dim objExcel As New Excel.Application
Dim exWb As Excel.Workbook
Dim sht As Excel.Worksheet
Dim NAME As String
Dim Range As Excel.Range
Dim str As String, strClean As String
Dim z As Integer
Dim strMyName As String
Dim x As Integer
Dim y As Integer
Dim stat_string As String

objExcel.DisplayAlerts = False
NAME = InputBox("Please enter your First Name ALL IN UPPERCASE", "Task List Name")
Set exWb = objExcel.Workbooks.Open("G:\Infrastructure Services\Engineering Services\Outlook Tasks Sheets\" & NAME & ".xls")

' exWb.Sheets(strMyName).Delete
' exWb.Sheets.Add (strMyName)
Set olnameSpace = Application.GetNamespace("MAPI")
Set taskFolder = olnameSpace.GetDefaultFolder(olFolderTasks)

Set tasks = taskFolder.Items

strReport = ""

'Create Header
exWb.Sheets("Sheet1").Cells(1, 1) = "Subject"
exWb.Sheets("Sheet1").Cells(1, 2) = "Category"
exWb.Sheets("Sheet1").Cells(1, 3) = "Due Date"
exWb.Sheets("Sheet1").Cells(1, 4) = "Percent Complete"
exWb.Sheets("Sheet1").Cells(1, 5) = "Status"
exWb.Sheets("Sheet1").Cells(1, 6) = "Notes"


y = 2

For x = 1 To tasks.Count

Set tsk = tasks.Item(x)

'strReport = strReport + tsk.Subject + "; "
'Fill in Data
If Not tsk.Complete Then


Select Case tsk.Status
Case tsk.Status = olTaskNotStarted
stat_string = "Not Started"
Case tsk.Status = olTaskInProgress
stat_string = "In Progress"
Case tsk.Status = olTaskWaiting
stat_string = "Waiting on Someone Else"
Case tsk.Status = olTaskDeferred
stat_string = "Deferred"
Case tsk.Status = olTaskComplete
stat_string = "complete"
End Select

exWb.Sheets("Sheet1").Cells(y, 1) = tsk.Subject
exWb.Sheets("Sheet1").Cells(y, 2) = tsk.Categories
exWb.Sheets("Sheet1").Cells(y, 3) = tsk.DueDate
exWb.Sheets("Sheet1").Cells(y, 4) = tsk.PercentComplete
exWb.Sheets("Sheet1").Cells(y, 5).Value = stat_string
exWb.Sheets("Sheet1").Cells(y, 6) = tsk.Body

y = y + 1
stat_string = ""
End If

Next x

'Autofit all column widths
For Each sht In ActiveWorkbook.Worksheets 'the following error occurs here: "Runtime error 462: The remote server machine does not exist or is unavailable"
sht.Columns("A").EntireColumn.AutoFit
sht.Columns("B").EntireColumn.AutoFit
sht.Columns("C").EntireColumn.AutoFit
sht.Columns("D").EntireColumn.AutoFit
sht.Columns("E").EntireColumn.AutoFit
sht.Columns("F").EntireColumn.AutoFit
Next sht

exWb.Save
exWb.Close

Set exWb = Nothing
sKillExcel = "TASKKILL /F /IM Excel.exe"
Shell sKillExcel, vbHide

End Sub

[/vba]