|
▼HAM さん
こんばんは^^
提示されいるコードそのままで検証されてるのかな?
こちらで、実行してみると、
まずいきなり、「変数が定義されていません」のエラーになります。
「UserForm_Initializ」で宣言されている
Dim CMB1 As Stringは、「ComboBox1_Change」内でないとだめかと・・・
>エラーメッセージが2回出て
>ボックス内に一覧が2重に取得されてしまいました
これも、こちらでは、
ブックを一つ消してから、それを選択すると、
「MsgBox CMB1 & "が見つから無い為ファイル一覧を更新します"」
のメッセージが出てから
「インデックスは有効範囲に・・云々」のエラーが出ます。
エラー処理の中で、
For Each Ws In Workbooks(Me.ComboBox1.Value).Worksheets
を再びしてるので、当然かと・・・
イマイチ提示されているコードと、おっしゃってることがそぐわないような感じがします。
リスとされているブックが一つなくなって、
一覧を更新します・・・にしたかったら、ComboBox1のリスト更新しないと駄目なんじゃ????
|
|