VBA: Error Handling in For Each loop - On Error Resume Next ws

[losamfr17]

Good morning,

The code below copy / pastes values from one workbook to another for all identical sheet names. However, when the active workbook contains a sheet not found in the "past wb", an error occurs. How do you tell the code to skip that sheet and continue on to the next (ie "On Error Resume Next ws")??

Thank you!

For Each ws In ActiveWorkbook.Worksheets
 
        Sheets(ws.Name).Activate
        Range("F30").Select
        Workbooks(pastWBname).Sheets(ws.Name).Activate
                For i = 1 To 7
                Selection.Copy
                Selection.Offset(, 2).Select
                Windows(myWB.Name).Activate
                ActiveCell.PasteSpecial xlPasteValues
                ActiveCell.Offset(, 2).Select
                Windows(pastWBname).Activate

            Next i


Next ws

 

[Fluff]

Try

For Each Ws In ActiveWorkbook.Worksheets
   [COLOR=#ff0000]If ShtExists(Ws.Name, Workbooks(pastWbname)) Then[/COLOR]
      Sheets(Ws.Name).Activate
      Range("F30").Select
      Workbooks(pastWbname).Sheets(Ws.Name).Activate
      For i = 1 To 7
         Selection.Copy
         Selection.Offset(, 2).Select
         Windows(MyWB.Name).Activate
         ActiveCell.PasteSpecial xlPasteValues
         ActiveCell.Offset(, 2).Select
         Windows(pastWbname).Activate
      Next i
  [COLOR=#ff0000] End If[/COLOR]
Next Ws

And

Public Function ShtExists(ShtName As String, Optional wbk As Workbook) As Boolean
    If wbk Is Nothing Then Set wbk = ActiveWorkbook
    On Error Resume Next
    ShtExists = (LCase(wbk.Sheets(ShtName).Name) = LCase(ShtName))
    On Error GoTo 0
End Function

 

[losamfr17]

Awesome thank you!

 

[Fluff]

You're welcome