On error resume next find?

[butters149]

Hello,

I have the small pasted VBA below. I was wondering what code can I add in so that if it cannot find, it will move onto the next find? Thanks!

Dim rngName As Range
Set rngName = Range("L1:CA1").Find("Name")
Range(rngName, rngName.End(xlDown)).Select
Selection.Delete Shift:=xlToLeft

Dim rngApp As Range
Set rngApp = Range("L1:L1").Find("Approved")
Range(rngApp, rngApp.End(xlDown)).Select
Selection.Delete Shift:=xlToLeft

 

[shg]

  Dim rFind As Range

  Set rFind = Range("L1:CA1").Find("Name")
  If Not rFind Is Nothing Then Range(rFind, rFind.End(xlDown)).Delete Shift:=xlToLeft

  Set rFind = Range("L1:L1").Find("Approved")
  If Not rFind Is Nothing Then Range(rFind, rFind.End(xlDown)).Delete Shift:=xlToLeft

 

[butters149]

  Dim rFind As Range

  Set rFind = Range("L1:CA1").Find("Name")
  If Not rFind Is Nothing Then Range(rFind, rFind.End(xlDown)).Delete Shift:=xlToLeft

  Set rFind = Range("L1:L1").Find("Approved")
  If Not rFind Is Nothing Then Range(rFind, rFind.End(xlDown)).Delete Shift:=xlToLeft

Thanks!

 

[shg]

De nada.