Error Hnadling when Range not found 1

[MacroAlan]

Our supplier sends a zillion spreadsheets with price quotes. Supposedly their system generates these and uses Named Ranges to place the data in the correct place.

I wrote a macro on our end that reads the named ranges and puts everything into a master.

After spinning through the first 50, I found a sheet that was totally missing the Named area I needed to pick up. Is there some syntax that would check for an error?

 Range("PROPOSAL_SUBTOTAL_MW_HW").Copy       'Point of failure
                WriteBk.Activate
                Cells(W, ContrCols.ppdHWlist).Select
                ActiveSheet.Paste
                    WB.Activate

I tried using On Error Goto something but it just gives me a 1004 Range not found error. If I could just rap the error I could flag the cell as bad for someone to check.


Alan

 

[SkipVought]

hi,

Use this function IsName as in the test example...

Sub test()
    MsgBox IsName("PROPOSAL_SUBTOTAL_MW_HW")
End Sub


Function IsName(sName As String) As Boolean
    Dim nm As Name, bFound As Boolean
    
    For Each nm In ActiveWorkbook.Names
        With nm
            If .Name = sName Then
                IsName = True
                Exit For
            End If
        End With
    Next
    
    For Each nm In ActiveSheet.Names
        With nm
            If .Name = sName Then
                IsName = True
                Exit For
            End If
        End With
    Next
End Function

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}