Passing a string from worksheet module to userform.

Hi all!

This is a simplified version of what I'm trying to achieve, I've lost track of how many failed attempts I've had at what must be something incredibly simple.

In a worksheet module, to initialise the userform.

Option Explicit
Public myString As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B2:B10")) Is Nothing Then
    UserForm1.ComboBox1.List = Range("M2:M10").Value
    UserForm1.Show False
    myString = Target.Value
End If
End Sub

Userform code,

Public rng As Range
Private Sub ComboBox1_Change()
Set rng = Range("M2:M10").Find(ComboBox1).Offset(0, 1)
    rng.Select
    rng = myString
End Sub

The (simplified) intention is to search for the item selected in the combobox on the worksheet and copy the selection value (myString) into the next column.
Please note that this needs to be done with a string variable for it to work with the less simple version, not copy / paste, range object, etc.

Thanks in advance for any suggestions.