Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

Career Coach EZ lift is the process created and administered by 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

...

In the top line of the worksheet add the name of the school’s program, and school’s credential in columns A, B. In columns C, D, E, F – add Program Name, Credential, Occupation Code, Title; this follows the formatting in the Lightcast/EMSI workbook:

...

Human Services: Advocacy

...

AA Degree

...

Program Name

...

Credential

...

Occupation Code

...

Occupation Title

...

Now you have your foundation set up.

...