ExcelVBAでのNothingでの判定

Question

初歩的な質問ですみません。

ExcelVBAにおいて、If ~ Is Nothing Then...
という処理をしたいのですがエラーが吐かれてしまい、原因がわからないという状況です。
For文の中にこのIf文をいれているため、一行目でWorksheets("Result")があるかどうか判定をかけたいと考えています。

VBAは半年ほどブランクが空いてしまい処理方法があまり思い出せず、調べてみたものの解決には至らなかったため質問させていただけたらと思います。

どうぞよろしくお願いいたします。

If Worksheets("Result") Is Nothing Then
       Set NewWorkSheet = Worksheets.Add()
       NewWorkSheet.Name = "Result"
End If

Answer 1

解決済みですが、こんな方法もあるということでご参考に。

    Dim ws As Worksheet
    On Error Resume Next
    Set ws = Worksheets("Result")
    If ws Is Nothing Then
        Set ws = Worksheets.Add
        ws.Name = "Result"
    End If

Comments

[toradora]

回答ありがとうございます。
知識不足で申し訳ありませんが、この場合のon error resume nextはなんのために記述するのでしょうか？

[hatena19]

エラーが出ても無視して次のコードへ進みなさい、という命令です。
Resultシートがないと、Worksheets("Result") でエラーになり、
次の行の If ws Is Nothing Then へ進みますが、 エラーでwsには代入されないので、 Is Nothing で判定できます。

Answer 2

Dim ws As Worksheet
For Each ws In Worksheets
    If ws.Name = "result" Then Exit For
Next
If ws Is Nothing Then Worksheets.Add.Name = "result"

Comments

[toradora]

ありがとうございます。無事解決致しました。

[tatsu99]

シート名は大文字／小文字を区別しないので、ws.nameを小文字に変換したものと"result"を比較したほうが良いかと。

[jinoji]

なるほど、たしかに。
If LCase(ws.Name) = "result" Then という感じですかね。