Got it working w/

vb Code:
  1. Application.DisplayAlerts = False

  2. Dim gisSource As String

  3. gisSource = lblGISData.Caption

  4. Application.ScreenUpdating = False

  5. Dim oBook As Workbook

  6. Set oBook = Application.Workbooks.Add

  7. Application.SheetsInNewWorkbook = 1

  8. oBook.SaveAs gisSource

  9. Workbooks("myBook.xls").Activate

  10. Workbooks("myBook.xls").Worksheets("tempGISData").Activate

  11. Dim splicedName As String

  12. splicedName = spliceFileNameEnd3(gisSource)

  13. Worksheets("tempGISData").Copy Before:=Workbooks(splicedName).Sheets(1)

  14. Workbooks(splicedName).Sheets("Sheet1").Delete

  15. Workbooks(splicedName).ActiveSheet.Name = spliceFileNameEnd2(gisSource)

  16. Workbooks(splicedName).Activate

  17. ActiveWorkbook.SaveAs fileName:=lblGISData.Caption, FileFormat:=xlDBF4, CreateBackup:=False

  18. Workbooks(splicedName).Close (False)

  19. Application.ScreenUpdating = True

  20. Application.DisplayAlerts = True