VBAで複数ブックの指定したセル範囲に任意の文字を同一処理したい。

Question

ユーザーフォームのRefEditからセル範囲を指定し、ユーザーフォームのテキストボックスの文字を、複数ブックに設定したいと考えています。
Sub test()
Dim filePath As Variant
Dim i As Long
Dim WB As Workbook

filePath = Application.GetOpenFilename( _
    FileFilter:="Excelブック(*.xlsx;*.xlsm),*.xlsx;*.xlsm", MultiSelect:=True)

If IsArray(filePath) Then
For i = LBound(filePath) To UBound(filePath)
Set WB = Workbooks.Open(filePath(i))
Dim Ref As Range
Set Ref = Range(RefEdit1.Value)
Ref.Value = TextBox1
Next
End If

End Sub

上記は変数RefEditとTextBoxの宣言をしていません。
Private sub は別モジュールに戻り値を渡すことができないようなので困っています
なにかいい方法はないでしょうか

また、フォーム等にはこだわっておらず、とにかく指定したセル範囲に任意の文字を複数ブックに設定できればと考えています。

学び始めて1週間目なので、変なことを言ってるかもしれませんが、ご容赦ください。

言葉足らずで申し訳ありません。
上記ではフォームにこだわらないとは書いてますが、誤りでした。
マクロに触れたことのない方が操作できるマクロを作りたいと思っています。

選択ダイアロｸﾞでエクセルファイルを開き、フォーム等でセル範囲を指定して、テキストボックスに打ち込まれたテキストを、すべてのブックに処理したいと思っています。

ヒントだけでも構わないので、ご教授願います。

Answer 1

言葉足らずにより希望したコードとは違ったこと

う～ん。
なかなか思いを伝えるのは難しいので、
やり取りしながら、回答者とすり合わせて行きながら、
気長に勉強しながら解決しませんか？
折角質問したのに解決してないようで、
もったいないなと思います。
回答者は1人ではないのでいろんな人の意見やアドバイスを待ってみては、
いかがでしょうか？

Answer 2

選択範囲指定方法は、
MsgBox Selection.Address
で確認してみてください。

TgAddress = Selection.Address
For i = LBound(filePath) To UBound(filePath)
    Set WB = Workbooks.Open(filePath(i))
    'あとWBのなかのSheetを指定してから
    Set sh = WB.Sheets(1)
    sh.Range(TgAddress).Value = "文字列？"
    '閉じないと開きっぱなし
    sh = Nothing
    WB = Nothing
Next

Comments

[Dis]

ありがとうございます。言葉足らずにより希望したコードとは違ったこと申し訳ありません。ただ、このコードも非常に参考になりました。
ありがとうございました。