Range("A1") = Me.ListBox1.Text
--
If this post helps click Yes
---------------
Jacob Skaria


"Mike B" wrote:

Hi,
I would appreciate any help with the follwing problem.

I have a user form containimg a List Box. I am having difficulty writing a
code which will save the text selected in the list box to a nominated cell in
my worksheet

Thanks

Mike