Function GetHours(EmpCol As Integer) As String
Dim lngRow As Long
Dim lngStart As Long
With ActiveSheet
For lngRow = 9 To .UsedRange.Rows.Count
If .Cells(lngRow, EmpCol) = "+" Then
lngStart = lngRow
Exit For
End If
Next
For lngRow = lngStart + 1 To .UsedRange.Rows.Count
If .Cells(lngRow, EmpCol) = "" Then
lngRow = lngRow - 1
Exit For
End If
Next
GetHours = .Cells(3, EmpCol) & " " & .Cells(lngStart, "A").Text & " to " & .Cells(lngRow, "B").Text
End With
End Function
My solution will be via a user defined function which you will be able to use exactly like a formula, but it will require saving the workbook in xlsm format. Is that OK?