Loop to check if multiple sheets exisit

[Legacy 93538]

Hi

I have the macro below which should loop though shName and do a check to see if the sheet exisits within a workbook (PPOld) and if it does then copy the data into the a sheet in another workbook (PPNew)

shName = "DE"
shFound = False
    For Each sh In Worksheets
       If LCase(sh.Name) = LCase(shName) Then
         shFound = True
         PPOld.Sheets(shName).cells.Copy Destination:=PPNew.Sheets(shName).Range("A1")
       End If
    Next

However it only works for one sheet and i need to check for two sheets "DE" and "PL".

Does anyone know how to be able to loop through multiple sheets?

Thank you

Jessicaseymour

 

[VoG]

Perhaps like this

Dim ShName As Variant
For Each ShName In Array("DE", "PL")
    shFound = False
    For Each sh In Worksheets
       If LCase(sh.Name) = LCase(ShName) Then
         shFound = True
         PPOld.Sheets(ShName).Cells.Copy Destination:=PPNew.Sheets(ShName).Range("A1")
       End If
    Next sh
Next ShName

 

[Legacy 93538]

Hi

Thanks alot works perfectly