Búsqueda dato desde celda excel en aplicación

Tengo este código que me buscaba hace años el contenido de la celda activa en una aplicación que usamos en el trabajo (con una combinación de teclas en vez de hacer un copy-paste). El problema que tengo es que la dirección de la aplicación (Windchill) que utilizamos (direc1) ya no es la misma, y no consigo que me haga la búsqueda.

He puesto xxxxxxx en lugar de la dirección web de la empresa, pero creo que la instrucción que va después no es correcta, ¿podrías ayudarme?

Sub GoToWINDCHILL()
'
' Lanza la búsqueda en Windchill del contenido de la celda Activa
' http o https en función de la versión de Excel

Dim direc1, direc2, direc3, direc As String

If ActiveCell.Value = "" Then
MsgBox "Error: Empty cell"
Else

Select Case Application.Version
Case "9.0"
direc0 = "http"
Case "11.0"
direc0 = "https"
Case Else
direc0 = "https"
End Select
'direc1 = "://xxxxxxxxxxx/Windchill/servlet/WindchillAuthGW/wt.enterprise.URLProcessor/URLTemplateAction?pick=20&keyword=&name=&modifier=&number="
'direc1 = "://xxxxxxxxx/Windchill/netmarkets/jsp/search/search.jsp?globalSearch=true&keyword="

direc2 = ActiveCell.Value
direc3 = "*&fireSearch=true&u8=1topOfSearchResults"
direc = direc0 & direc1 & direc2 & direc3

'ActiveWorkbook.FollowHyperlink Address:=direc, NewWindow:=True
End If
'
End Sub