Focusを正常に動作させる方法をご助力頂きたい

Question

お世話になっております。

初心者の質問失礼いいたします。
今AcriveなSheetのCell(3,3)にフォーカスを行くようにしたいので

    ActiveSheet.Cell(3, 3).SetFocus
    ActiveWorkbook.Protect , Structure:=True, Windows:=False

でシートの3,3に

デバッガーで追おうとしても

中断モードでは入力出来ません

となり【継続】としても以降のデバッガポイントでは止まってくれないのです……

そのため作成している部分で

    With Sh
        LastRo = Module1.GetLastRow(Sh, .Rows.Count, 2)
        TargetRo = LastRo + 1
        AddRow = TargetRo
        .Rows(TargetRo).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        .Rows(TargetRo).RowHeight = 20
        '整理番号
        RefNum = TargetRo - 5
        'グローバル変数;記入対象の行
        CiteRo = TargetRo
        .Cells(TargetRo, 2).Value = RefNum
        '「工事名」の記入
        .Cells(TargetRo, 5).Value = "未記入"
        'ma2add
        .Cells(TargetRo, 5).SetFocus'←←←←←←←←←←←←←←←←
    End With

としてみたのですが

MicrosoftVisualBasic
実行時エラー’438'：
オブジェクトは、このプロパティまたはメソッドをサポートしていません。

と表示されます……

今現在混乱しているのは重々承知なのですが
excelのVBAでFocusを動作させる注意点を伺ってよろしいでしょうか？

お忙しい所大変申し訳無いのですが上記お問い合わせいたします。

Answer 1

SetFocusはCellsに対しては使えないと思います。
なぜそれをしようと思ったのかによりますが、セルを選択したいだけなら
.Cells(TargetRo, 5).Select　でよいと思います。

Comments

[ma2hiro]

jinoji様
仰るようにSelectで良かったですね……
実装してみますっ
基本的な質問にコメントありがとうございましたm(_ _)m