Routine works stand alone but not as part of larger sub routine

Question

This sub routine works

Sub aRefreshDataAndPivot()

ActiveWorkbook.Connections("ThugLifeLIVE").Refresh

End Sub

and so does this one: