Use cell value as Workbook Connection value

[FergalK]

Hi
I'm looking to pass a value from a cell into a VBA query but unsure of the format.
See below code as an example, in the working version of this code, the 3rd line has a specific value for the name of the WorkbookConnection, eg;
With ActiveWorkbook.Connections("MyDataConnection")
What I'm trying to do is use the value in cell B12 instead of MyDataConnection

Appreciate any help!
Thanks

PrivateSub Button_get_wkbook_conn_info_Click()
Dim WorkbookConnectionName As Range
Set WorkbookConnectionName =Worksheets("Lists").Range("B12").Value

With ActiveWorkbook.Connections("& WorkbookConnectionName & ")
Worksheets("Lists").Range("B2").Value = .Name 'Workbook Connection Name
End With
End Sub

 

[NeonRedSharpie]

Dim connectionValue as String
connectionValue = Cells(12, 2).Value
With ActiveWorkbook.Connection(connectionValue)
etc...etc...

 

[FergalK]

Thanks a lot for that - works just fine! (except for a subsequent problem but that's the subject for a separate post)

 

[NeonRedSharpie]

Well feel free to post it in here or make a new post...I'll keep hitting that F5