Often-Used Code not working in a new Workbook
 

I have the following code to transfer an option from a combobox to a
cell on one sheet. I've used this code several times before in other
workbooks, and it works absolutely fine, but, for some reason, in my
current project, it just comes up as an error and the
'Range("G11").Select' line is highlighted in yellow. Is there some
obvious or uderlying reason for this, does anyone know?

The code is:

Private Sub ComboBox1_Change()
Worksheets("How").Activate
Range("G11").Select
ActiveCell.Value = ComboBox1.Value
Worksheets("Statskeeper").Activate
End Sub

I've tried the same code in a commandbutton_click as well, but with the
same result.

Any ideas would be greatly appreciated.

Thanks

Steve

Hi Steve

is cell G11 protected?

BTW not sure that it will solve your problem but you could re-write your
code as follows:

Private Sub ComboBox1_Change()
Worksheets("How").Range("G11").Value = ComboBox1.Value
Worksheets("Statskeeper").Activate
End Sub



Cheers
JulieD


"Steve" wrote in message
oups.com...
I have the following code to transfer an option from a combobox to a
cell on one sheet. I've used this code several times before in other
workbooks, and it works absolutely fine, but, for some reason, in my
current project, it just comes up as an error and the
'Range("G11").Select' line is highlighted in yellow. Is there some
obvious or uderlying reason for this, does anyone know?

The code is:

Private Sub ComboBox1_Change()
Worksheets("How").Activate
Range("G11").Select
ActiveCell.Value = ComboBox1.Value
Worksheets("Statskeeper").Activate
End Sub

I've tried the same code in a commandbutton_click as well, but with the
same result.

Any ideas would be greatly appreciated.

Thanks

Steve

JulieD fixed the problem by not selecting the cell.

When you have an unqualified range in a routine in a General module, it refers
to the activesheet.

But when that routine is in a worksheet module, that unqualified range refers to
the sheet that owns the code.

So you could qualify things:

Private Sub ComboBox1_Change()
Worksheets("How").Activate
worksheets("how").Range("G11").Select
ActiveCell.Value = ComboBox1.Value
Worksheets("Statskeeper").Activate
End Sub

But JulieD's code is much better cleaner.

And if this combobox is on the StatsKeeper worksheet, you can drop that line
from JulieD's code. (Since she didn't select the other sheet, she doesn't have
to return to it.



Steve wrote:

I have the following code to transfer an option from a combobox to a
cell on one sheet. I've used this code several times before in other
workbooks, and it works absolutely fine, but, for some reason, in my
current project, it just comes up as an error and the
'Range("G11").Select' line is highlighted in yellow. Is there some
obvious or uderlying reason for this, does anyone know?

The code is:

Private Sub ComboBox1_Change()
Worksheets("How").Activate
Range("G11").Select
ActiveCell.Value = ComboBox1.Value
Worksheets("Statskeeper").Activate
End Sub

I've tried the same code in a commandbutton_click as well, but with the
same result.

Any ideas would be greatly appreciated.

Thanks

Steve

--

Dave Peterson