【マクロ】１つのマクロの中に、ブック指定とシート指定が混在しても良いのですか？

【質問したい事】
下記の【２つめのマクロ】について

同じブック内で動かすコードです
３行あり、１行目はブック指定。２・３行目はシート指定です。
全て同じブック内です。

このような書き方は適切でしょうか？
※次のコードの事です　Workbooks("いろいろあり転記元.xlsm").Worksheets("画面貼付").Activate


なお、当該マクロの前に別ブックにて別マクロが動いた後に
当該マクロのブックに移動をして、実行する為、シートとのみ書いていると
動きませんでした。よって、１行目だけブック・シートに変更したところ動きました

質問は同じマクロ内で、ブックとシートが混在してよいですか？です

宜しくお願いします
なお、下記のマクロは全て動きます



Workbooks("いろいろあり転記元.xlsm").Worksheets("画面貼付").Activate


【下記の２つのマクロを呼出。実行】

Sub call()

Call 別ブックへ転記ファイル名変更

Call 列クリア

End Sub


【１つめのマクロ】

Sub 別ブックへ転記ファイル名変更()


Dim ws1 As Worksheet
Dim wb2 As Workbook
Dim ws2 As Worksheet


Dim maxrow2 As Long
Dim row2 As Long


Set ws1 = Worksheets("転記元")


Set wb2 = Workbooks.Open(ws1.Range("A3").Value)　'ブックパス
Set ws2 = wb2.Worksheets(ws1.Range("A5").Value)　'上記のシート名

maxrow2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row
row2 = maxrow2 + 1

ws2.Cells(row2, 1).Resize(1, 3).Value = ws1.Cells(1, 1).Resize(1, 3).Value


End Sub


【２つめのマクロ】⇒質問したいコード

Sub 列クリア()

Workbooks("いろいろあり転記元.xlsm").Worksheets("画面貼付").Activate

Worksheets("画面貼付").Columns("d").Clear

Worksheets("転記元").Activate

End Sub

No.1 ベストアンサー 回答者： 初心者ですが何か。 回答日時： 2024/05/16 08:58

ブックとシートを同時にアクティベート出来たかは忘れましたが。

Sub 列クリア_2()

with Workbooks("いろいろあり転記元.xlsm")

.Worksheets("画面貼付").Columns("d").Clear

.Activate

.Worksheets("転記元").Activate

end with
End Sub

とかでも宜しいのでは？

No.2 回答者： little_experience000 回答日時： 2024/05/16 09:38

Workbooks("いろいろあり転記元.xlsm").Worksheets("画面貼付").range(A1")

ブックの中にシートがあって、その中にセルがあります。
見えてるのであれば省略できます。