...
...
...
Career Coach EZ lift is the process created and administered by Enabling Services.
...
Enabling Services obtains Career Coach workbook from Lightcast
Enabling Services delivers workbook to school
#3School reviews their academic programs, making additions, deletions, changes
School delivers updated workbook to Enabling Services (keep a copy; it will be used later in the EZ Lift process, noted in step 12)
Enabling Services creates EZ Lift workbook – one worksheet for each academic program
Details on creating worksheet tabs are here
Enabling Services finds Occupation Codes/Occupation Titles aligning with academic programs, adding them to each program worksheet
Enabling Services sends EZ Lift workbook to school for review
School disseminates worksheets (one for each academic program) to Deans/Department Chairs responsible for assigned disciplines and their associated academic programs.
Deans/Department Chairs review worksheets for their discipline, reviewing Occupation Codes/Titles Enabling Services assigned to each program; they may choose to ‘strike’ some of the Occupation Codes/Titles assigned.
School returns updated EZ Lift workbook to Enabling Services
Enabling Services adds approved Occupation Codes/Occupation Titles to Occupation Mappings worksheet, program by program - within Career Coach workbook (as updated/received by school in item 4)
Enabling Services sends updated Career Coach workbook to Lightcast
Lightcast makes updates in Career Coach, and sends updated workbook to Enabling Services
Enabling Services delivers updated workbook to school
...
The workbook has a worksheet listing academic programs/certificates-the ‘Programs’ tab. This list must be reviewed by the school for accuracy. They make any additions, deletions, and modifications to the program list.
| Anchor | ||||
|---|---|---|---|---|
|
...
Once done, they return the updated workbook to Enabling Services.
...
Sub AddSheets()
'Updateby Extendoffice
Dim xRg As Excel.Range
Dim wSh As Excel.Worksheet
Dim wBk As Excel.Workbook
Set wSh = ActiveSheet
Set wBk = ActiveWorkbook
Application.ScreenUpdating = False
For Each xRg In wSh.Range("A1:A7")
With wBk
.Sheets.Add after:=.Sheets(.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = xRg.Value
If Err.Number = 1004 Then
Debug.Print xRg.Value & " already used as a sheet name"
End If
On Error GoTo 0
End With
Next xRg
Application.ScreenUpdating = True
End Sub
...