This simple codes hangs but runs fine in SQL Server Management Studio?

[TheWennerWoman]

costcentre = Sheet4.Range("K6").Value

Application.ScreenUpdating = False
If Sheet4.Range("C5").Value = "ROI" Then
sSQLQry = "SELECT 'E' + RIGHT (g.[code], 5) + ' | ' + REPLACE (e.[name], '''', '') FROM [parklive].[dbo].[oas_grplist] g JOIN [dbo].[oas_element] e ON e.cmpcode = g.cmpcode AND g.code = e.code WHERE g.cmpcode = 'S002' AND grpcode = '" & costcentre & "' AND g.elmlevel = '4' AND left (e.code, 1) = 'W' AND e.endyear = '0'"
End If
If Sheet4.Range("C5").Value = "UK" Then
sSQLQry = "SELECT 'E' + RIGHT (g.[code], 5) + ' | ' + e.[name] FROM [parklive].[dbo].[oas_grplist] g JOIN [dbo].[oas_element] e ON e.cmpcode = g.cmpcode AND g.code = e.code WHERE g.cmpcode = 'T002' AND grpcode = '" & costcentre & "' AND g.elmlevel = '4' AND left (e.code, 1) = 'W' AND e.endyear = '0'"
End If

If the UK bit of code runs, it runs instantly. If the ROI bit of code runs it hangs forever and I have to crash out of Excel. The only difference is I am trying to remove apostrophes from names via the REPLACE function. But it runs instantly in SQL Server Management Studio. Any thoughts?

Thanks in advance.

 

[JEC]

Not every SQL command is supported in VBA. Could be the issue.