I just tried that, and that seems to be my issue.  How can have my
macro split the vairable into something less and then join it into one
large string at the end

Here is my current code:

Dim rDataX As Range
 Dim rDataY As Range
 Dim wsData As Worksheet
 Dim sAddressX As String
 Dim sAddressY As String
 Dim iArea As Long
 Dim cName As String
 Dim scName As String
 Dim rgA1 As String
 Dim rgA2 As String
 Dim rgD1 As String
 Dim rgD2 As String
 Dim rngTotal As String
 Dim cDataX As String
 Dim cDataY As String
 Application.ScreenUpdating = False
 rgA1 = ""
 rgD1 = ""
 rgA2 = ""
 rgD2 = ""
 rngTotal = ""
 cDataX = ""
 cDataY = ""
 Application.Worksheets("Employee_Charts").Activate

 cName = Range("B3").Value
 Sheets("Empl_Hrs").Select
 Range("A2").Select

 Do While ActiveCell.Value <> "" Or _
   ActiveCell.Offset(0, 1).Value <> ""
  scName = ActiveCell.Value
  If UCase(scName) = UCase(cName) Then
   ActiveCell.Offset(1, 0).Select
   rgA1 = ActiveCell.Row
   rgD1 = ActiveCell.Row
   Do While ActiveCell.Offset(0, 1).Value <> ""
    If ActiveCell.Offset(0, 1).Value = "Total Hours" Then
      If Not cDataX <> "" Then
       cDataX = "A" & ActiveCell.Offset(-1, 0).Row
      Else
       cDataX = cDataX & "," & "A" & ActiveCell.Offset(-1, 0).Row
      End If
      If Not cDataY <> "" Then
       cDataY = "D" & ActiveCell.Row
      Else
       cDataY = cDataY & "," & "D" & ActiveCell.Row
      End If
    End If
     If ActiveCell.Offset(0, 1).Value = "Total Working Hours" Then
       rgA2 = ActiveCell.Offset(-2, 0).Row
       rgD2 = ActiveCell.Offset(-2, 0).Row
     End If
   ActiveCell.Offset(1, 0).Select
   Loop
  End If
 ActiveCell.Offset(1, 0).Select
 Loop
 If Not cDataX <> "" Then
  Sheets("Employee_Charts").Select
  MsgBox "No Data Found." & Chr(10) & "Have a Nice Day!",
vbInformation

  Exit Sub
 End If
rgA1 = "A" & rgA1 & ":" & "A" & rgA2
rgD1 = "C" & rgD1 & ":" & "C" & rgD2
rngTotal = rgA1 & "," & rgD1
Sheets("Employee_Charts").Select
Set wsData = Worksheets("Empl_Hrs")
Set rDataX = wsData.Range(cDataX)
Set rDataY = wsData.Range(cDataY)

 For iArea = 1 To rDataX.Areas.Count
   sAddressX = sAddressX & wsData.Name & "!"
   sAddressX = sAddressX & rDataX.Areas(iArea).Address(, , xlR1C1) &
","
 Next
 sAddressX = "=" & Left(sAddressX, Len(sAddressX) - 1)

 For iArea = 1 To rDataY.Areas.Count
   sAddressY = sAddressY & wsData.Name & "!"
   sAddressY = sAddressY & rDataY.Areas(iArea).Address(, , xlR1C1) &
","
 Next
 sAddressY = "=" & Left(sAddressY, Len(sAddressY) - 1)

ActiveSheet.ChartObjects.Select
ActiveChart.ChartTitle.Text = cName & Chr(10) & "Working Hours
Summary Report"
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = sAddressX
ActiveChart.SeriesCollection(1).Values = sAddressY
On Error Resume Next
ActiveChart.SeriesCollection(1).Name = "=Empl_Hrs!R1C3"
Dim Thomas As String
Thomas = "hi"

Range("B3").Select
Application.ScreenUpdating = True