Hi,

I have a list box and have the following code in the worksheet module:

Private Sub MyListBox_Change()
Sheets("Report").Select
End Sub

My list box is called MyListBox but when I select it nothing happens. All I
want is to go to another sheet after the change occurs.

The only thing I can think is the name of my list box is incorrect but it
does show as MyListBox in the cell name drop down but it doesnt appear in the
defined names. Using 2003.

Can anyone see what I am doing wrong?

Thanks in advance

Martin

What sort of ListBox is it, from the Forms toolbar, or the Control tollbox?

If it is the former, you need to assign a macro, right-clickAssign Macro,
that does the sheet select. If if is the latter, you can add that code to
the worksheet's code module.


---
HTH

Bob Phillips



"Martin" wrote in message
...
Hi,

I have a list box and have the following code in the worksheet module:

Private Sub MyListBox_Change()
Sheets("Report").Select
End Sub

My list box is called MyListBox but when I select it nothing happens. All
I
want is to go to another sheet after the change occurs.

The only thing I can think is the name of my list box is incorrect but it
does show as MyListBox in the cell name drop down but it doesnt appear in
the
defined names. Using 2003.

Can anyone see what I am doing wrong?

Thanks in advance

Martin

Maybe you meant this:

Private Sub ListBox1_Click()
Sheets("Report").Select
End Sub

--
Regards!
Stefi



€žMartin€� ezt Ã*rta:

Hi,

I have a list box and have the following code in the worksheet module:

Private Sub MyListBox_Change()
Sheets("Report").Select
End Sub

My list box is called MyListBox but when I select it nothing happens. All I
want is to go to another sheet after the change occurs.

The only thing I can think is the name of my list box is incorrect but it
does show as MyListBox in the cell name drop down but it doesnt appear in the
defined names. Using 2003.

Can anyone see what I am doing wrong?

Thanks in advance

Martin

The change function need to be in the VBA sheet where box is located. I
usually add a break point in the macro to make sure the event is
occuring properly by selecting a line of code in the macro and hitting
F8. The code will no work unless the application.enableevents is set to
true.


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=162267

Microsoft Office Help

Are you actually changing something in the list box or are you just selecting
the list box. If you are just selecting the listbox I would use the
MyListBox_Click Event.

If you are changing something in the list box try:

Private Sub MyListBox_Change()
Sheets("Report").Activate
End Sub

or

Private Sub MyListBox_AfterUpdate()
Sheets("Report").Activate
End Sub
--
Cheers,
Ryan


"Martin" wrote:

Hi,

I have a list box and have the following code in the worksheet module:

Private Sub MyListBox_Change()
Sheets("Report").Select
End Sub

My list box is called MyListBox but when I select it nothing happens. All I
want is to go to another sheet after the change occurs.

The only thing I can think is the name of my list box is incorrect but it
does show as MyListBox in the cell name drop down but it doesnt appear in the
defined names. Using 2003.

Can anyone see what I am doing wrong?

Thanks in advance

Martin

Hi,

I have tried all suggestions but it still doesnt want to work. Not sure
where to go from here, will have to think of other options...

Martin


"Ryan H" wrote:

Are you actually changing something in the list box or are you just selecting
the list box. If you are just selecting the listbox I would use the
MyListBox_Click Event.

If you are changing something in the list box try:

Private Sub MyListBox_Change()
Sheets("Report").Activate
End Sub

or

Private Sub MyListBox_AfterUpdate()
Sheets("Report").Activate
End Sub
--
Cheers,
Ryan


"Martin" wrote:

Hi,

I have a list box and have the following code in the worksheet module:

Private Sub MyListBox_Change()
Sheets("Report").Select
End Sub

My list box is called MyListBox but when I select it nothing happens. All I
want is to go to another sheet after the change occurs.

The only thing I can think is the name of my list box is incorrect but it
does show as MyListBox in the cell name drop down but it doesnt appear in the
defined names. Using 2003.

Can anyone see what I am doing wrong?

Thanks in advance

Martin

Check the name of your listbox in the properties window! It should be
MyListBox. If you create a new listbox, then Excel2003 gives it a name
ListBox1. MyListBox reminds me to the word usage of VBA Help. Maybe you
copied your code from there?
--
Regards!
Stefi



€žMartin€� ezt Ã*rta:

Hi,

I have tried all suggestions but it still doesnt want to work. Not sure
where to go from here, will have to think of other options...

Martin


"Ryan H" wrote:

Are you actually changing something in the list box or are you just selecting
the list box. If you are just selecting the listbox I would use the
MyListBox_Click Event.

If you are changing something in the list box try:

Private Sub MyListBox_Change()
Sheets("Report").Activate
End Sub

or

Private Sub MyListBox_AfterUpdate()
Sheets("Report").Activate
End Sub
--
Cheers,
Ryan


"Martin" wrote:

Hi,

I have a list box and have the following code in the worksheet module:

Private Sub MyListBox_Change()
Sheets("Report").Select
End Sub

My list box is called MyListBox but when I select it nothing happens. All I
want is to go to another sheet after the change occurs.

The only thing I can think is the name of my list box is incorrect but it
does show as MyListBox in the cell name drop down but it doesnt appear in the
defined names. Using 2003.

Can anyone see what I am doing wrong?

Thanks in advance

Martin