IFステートの中にWithステートメントの始まり

質問

IFステートの中にWithステートメントの始まりだけ入れることってできないのですか？

Sub j()
Dim a As String

a = "aaa"
If a = "aaa" Then
With Sheets("作業用1")
Else
With Sheets("作業用2")
End If

End With

End Sub

このような事をやろうとすると、Elseの部分でコンパイルエラーになります。

別の方法として、シートオブジェクトの中に入れちゃえば入れちゃえば
With の分岐をしなくていいことは分かったのですが、
このような使い方をしたいことが多々あるのですが、
VBAの文法的には、IFの中にWithの始まり（先頭）だけを入れることは不可能なのでしょうか？

回答No.1

redfox63 · ベストアンサー

有効範囲のブロックが異なってしまうので 無理かも

解決案として

dim sh as Worksheet

if a = "aaa" then
　　set sh = Sheets("作業用1")
else
　　set sh = Sheets("作業用2")
end if

With sh

End With
といった具合なら うまくいくと思いますよ

お礼

回答ありがとうございました。