For a manual effort, it's one by one.

You could use a macro:

Option Explicit
Sub testme()
Dim OLEObj As OLEObject
Dim wks As Worksheet
Dim DestCell As Range

Set wks = Worksheets("sheet1")

Set DestCell = Worksheets("sheet2").Range("a1")

For Each OLEObj In wks.OLEObjects
If TypeOf OLEObj.Object Is MSForms.ListBox Then
OLEObj.LinkedCell = DestCell.Address(external:=True)
DestCell.Offset(0, 1).Value = OLEObj.Name
Set DestCell = DestCell.Offset(1, 0)
End If
Next OLEObj

End Sub


"Patty via OfficeKB.com" wrote:

thanks it worked. I was typing in a "=" before.
Do you know how to automate the LinkedCell option. Do I need to go into each
box individually to change the LinkedCell?

Patty wrote:
Is it possible to create a combo box from data that's in another tab?
I have a combo box that's from data in hidden columns. But now I need to move
all that hidden data to another tab in the same file. But when I go into
properties and go to the ListFillRange option, it won't let me enter another
tab name.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200508/1

--

Dave Peterson