What am i missing here?

[James]

Private Sub CommandButton2_Click()
Application.ScreeUpdating = False
Application.Goto Reference:=Range("A84"), _
Scroll:=True
[W94].Value = [G86*B86] + blah, blah, blah
[cbx1] = Empty
[databox1] = Empty
Range("B86").Select
Application.Screen.Updating = True
End Sub

I know in the above code i said [databox1] =
Empty, but what i am now trying to "fire off"
is [databox1] = [cbx1]?

databox1 is a textbox & cbx1 is a listbox

Any ideas?

James

[Ivan F Moala]

On 2002-04-21 19:44, James wrote:
Private Sub CommandButton2_Click()
Application.ScreeUpdating = False
Application.Goto Reference:=Range("A84"), _
Scroll:=True
[W94].Value = [G86*B86] + blah, blah, blah
[cbx1] = Empty
[databox1] = Empty
Range("B86").Select
Application.Screen.Updating = True
End Sub

I know in the above code i said [databox1] =
Empty, but what i am now trying to "fire off"
is [databox1] = [cbx1]?

databox1 is a textbox & cbx1 is a listbox

Any ideas?

James

Hi James
Just a few things.....
1) Was this code copied from your orig.
as there are a few typos.
eg Application.ScreeUpdating = False
2) Following will help ??

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

Application.Goto Reference:=Range("A84"), _

Scroll:=True

[W94].Value = [G86*B86] + blah, blah, blah

'[cbx1] = Empty

'[databox1] = Empty



[databox1] = cbx1.Text

Range("B86").Select

Application.ScreenUpdating = True

End Sub