|
> For Each Target In ActiveWorkbook.Worksheets
> With Target
> If .Range("A1").Value = "" Then
> .Range("A1").Value = "A"
> Else
> '.Range("A1").Value = .Range("A1").Value & "B"
> End If
> End With
> Next
ここでBook中のすべてのシートをループして、A1を変更するような処理になっています。
名前がSheet1であるならば、
> For Each Target In ActiveWorkbook.Worksheets
> Next
を消して
Set Target = ActiveWorkbook.Worksheets("Sheet1")
にする。
一番左のシートならば、
> For Each Target In ActiveWorkbook.Worksheets
> Next
を消して
Set Target = ActiveWorkbook.Worksheets(1)
にするか、
> Next
の上の行に、
Exit For
とでも付け足して記述しておけばよさそう。
|
|