Excel 2000, inputbox repeat

  • Thread starter Thread starter Harry Lime
  • Start date Start date
H

Harry Lime

Hello, how do I stop the input box from reappearing, see code below.
Basically the input box keeps reappearing from rows 30 to 43. I only require
it to appear Once, and place the resulting value in the first free row from
30 to 43 in column f

Private Sub chkremote_Click()
chkremote.Value = 0

For remfan = 30 To 43
Worksheets("quote").Range("g" & remfan).Value = "A38"
Next remfan
quan = InputBox("How Many Remote Fans Do You Require", "Remote Fans")
Worksheets("quote").Range("f" & remfan).Value = quan

End Sub

Many thanks

Harry
 
Harry,

Either remove the line

chkremote.Value = 0

or learn to live with it. OR ---- You could change to a commandbutton, since
you don't seem to want the value to change, and the commandbutton doesn't
have a value or require clearing.

HTH,
Bernie
MS Excel MVP
 
Back
Top