ok this code is placed inside module1.inptdata

Range("b2").Value = frmquote.txtdate.Value
Range("b3").Value = frmquote.txtquote.Value
Range("b4").Value = frmquote.txtsalesman.Value
Range("b5").Value = frmquote.txtdterequired.Value
Range("b8").Value = frmquote.txtCompName.Value
Range("b9").Value = frmquote.txtadd1.Value
Range("b10").Value = frmquote.cmbo1.Value

frmquote.txtdate.enable = false
frmquote.txtquote.enable = false
frmquote.txtsalesman.enable = false
frmquote.txtdterequired.enable = false
frmquote.txtCompName.enable = false
frmquote.txtadd1.enable = false
frmquote.cmbo1.enable = false

can you please give me idea how to do it. because this will work after clicking the command button. so all the data that has encoded in various textbox will go to each specific cell destination. can you show how to do it or atleast how to construct it.

thanks alot

fucell