VBAそのままコピペ「ブックシートの選択」

ブックシートの検索

Workbooks("Book1.xls").Worksheets("Sheet1").Range("A1:B10")= "文字"

.value

ブック、シートまたぎの時は2行
Workbooks("Book2.xlsx").Activate
Sheets("Sheet2").Select

コピペ用
Sub Sample()
 
ActiveWorkbook.ActiveSheet.Range("A1").Value = "ActiveWorkbook"
'【選択されているBook】の【選択されているSheet】
 
ThisWorkbook.Worksheets("Sheet1").Range("A2").Value = "ThisWorkbook"
'【マクロの書かれているBook】のSheet1
 
Workbooks(1).Worksheets(1).Range("A3").Value = "Workbooks(1)"
'【最初に開いたBook】の【一番左のSheet】
 
End Sub