Public Function GetJobRoles()
      Dim xlsApp As Excel.Application
      Dim xlsBook As Excel.Workbook
      Dim xlsSheet As Excel.Worksheet
      Dim strWorkbook As String
      Dim strWorksheet As String
      Dim rngData As Excel.Range
      Dim strFirstCell As String
      Dim strPath As String
      Dim strCompetency As String
      Dim blnLast As Boolean
 
      Const strProcedure As String = "GetJobRoles"
10    On Error GoTo ErrorHandler
 
20    Set xlsApp = New Excel.Application
30    xlsApp.Visible = True
40    strWorksheet = "Role Competency Achievement"
50    strPath = "C:\Users\Todd\Desktop\ExcelForms\Accounting\Accounting_Assistant_Performance_Review_Form.xls"
60    Set xlsBook = xlsApp.Workbooks.Open(strPath)
         
70    With xlsBook
 
80       Set xlsSheet = .Sheets(strWorksheet)
90       xlsSheet.Activate
100      Set xlsSheet = ActiveSheet
110      strFirstCell = "$B$8"
120      Set rngData = ActiveSheet.Range(strFirstCell)
130      rngData.Select
         
140      blnLast = False
150      Do Until blnLast
160         strCompetency = rngData.Value
170         If strCompetency = "OVERALL PERFORMANCE:" Then
180            blnLast = True
190         Else
200            Debug.Print strCompetency
210            rngData.Offset(1, 0).Select
220         End If            'If strCompetency = "OVERALL PERFORMANCE:"
230      Loop                 'Do Until blnLast
240      xlsBook.Close savechanges:=False
250   End With                'With xlsBook
 
 
ExitFunction:
260   On Error Resume Next
270   xlsBook.Close savechanges:=False
280   Set xlsBook = Nothing
290   xlsApp.Quit
300   Set xlsApp = Nothing
310   On Error GoTo 0
320   Exit Function
 
ErrorHandler:
330   Debug.Print Err.Description, Err.Number, Erl
340   MsgBox Err.Description & ", " & Err.Number & "," & Erl
350   Resume ExitFunction
End Function