vbModelessのフォームのフォーカスについて

Question

Excel vba のフォームについての質問です。

vbModelessでshowしたフォームのテキストボックスにフォーカスインしたいのですができません。

ブックのオープンイベントの最後で
Call frmA.show(vbModeless)で表示しており、
フォームのアクティベートイベントは以下です。

Private Sub UserForm_Activate()

    Me.txtA.Text = vbNullString
    Me.txtB.Text = vbNullString

    Call Me.txtA.SetFocus 

End Sub

SetFocusの後にActiveControlを取得しても空文字が返ってきます。

調べてみましたが、これといった解決方法が出てきませんでした。

ご教示お願いいたします。

Answer 1

ミニマムで確認してみたでしょうか？
当方で試したところ、SetFocus はされていました。

但し、シート上のセルを選択した後にフォームを選択すると、
フォーカスが外れていました。

Answer 2

極シンプルなテストプログラムで試した感じでは、問題なくできました。
txtAがDisableになっているなんてことはないですよね。
何か別の処理の弊害でフォーカスが正しく処理できていないような気がします。

原因がわからない場合、強攻策ですが、TabIndexで一番目(0)にくるように設定してしまうのはいかがでしょうか。