VBA activeworkbook vs thisworkbook

Jeg sidder og kæmper lidt med en løsning hvor jeg ønsker at tage tre specifikke faner fra en workbook og gemme dem som separate filer så de kan indlæses. Derudover ønsker jeg i samme ombæring at fjerne formler mv.

Jeg har derfor samlet denne stump kode af to forskellige forslag fra:
http://www.thesmallman.com/looping-through-worksheets/
https://stackoverflow.com/questions/20246465/how-to-copy-only-a-single-worksheet-to-another-workbook-using-vba

Min kode ser efter lidt ændringer således ud:

For Each sh In ActiveWorkbook.Worksheets ' Start of the VBA loop
    Select Case sh.Name
    Case Is = "Booking 209", "Booking 200", "Booking 208"
        sh.Copy
        Application.ActiveWorkbook.SaveAs Filename:=strPath & "\" & sh.Name & ".xlsx" ' notice the extra naming part
        ActiveWorkbook.Cells.Copy
        ActiveWorkbook.[A1].PasteSpecial Paste:=xlValues
        ActiveWorkbook.Cells.Hyperlinks.Delete
        Application.CutCopyMode = False
        Cells(1, 1).Select
        ActiveWorkbook.Activate
        Application.ActiveWorkbook.Close True
    End Select
Next sh

Fejlen ligger i Activeworkbook. Som nævnt ønsker jeg at skabe de nye filer som døde værdier, men jeg kan ikke ramme terminologien for at arbejde i den netop skabte workbook - det er ikke activeworkbook åbenbart, og naturligvis ikke thisworkbook (ide makroen køres fra en fil der ikke skal miste formler)