Find active Windows()
 

Hi,

I would like to find out, how I can find which excelform
is open?

I would like to generate a Combobox with the active
excelfiles

I know that Windows(thexls).Activate works, but here for I
must know what the name 'thexls'

can someone help me?

thx
Lieven

Find active Windows()
 

I found already a work-around, but can't this be done
easier?

i = 1
Do While i <= Windows.Count
Windows(i).Activate
ComboBox1.AddItem (" OPEN XLS SHEET: " &
ActiveWorkbook.Name)
i = i + 1
Loop


-----Original Message-----
Hi,

I would like to find out, how I can find which excelform
is open?

I would like to generate a Combobox with the active
excelfiles

I know that Windows(thexls).Activate works, but here for
I
must know what the name 'thexls'

can someone help me?

thx
Lieven
.

Find active Windows()
 

Try

For Each wb In Application.Windows
ComboBox1.AddItem (" OPEN XLS SHEET: " & wb.Name)
Next wb

"Lieven" wrote in message
...
I found already a work-around, but can't this be done
easier?

i = 1
Do While i <= Windows.Count
Windows(i).Activate
ComboBox1.AddItem (" OPEN XLS SHEET: " &
ActiveWorkbook.Name)
i = i + 1
Loop


-----Original Message-----
Hi,

I would like to find out, how I can find which excelform
is open?

I would like to generate a Combobox with the active
excelfiles

I know that Windows(thexls).Activate works, but here for
I
must know what the name 'thexls'

can someone help me?

thx
Lieven
.