Ta bort flikar i excel

Ett problem.
I ett excelblad (bok1) har jag i flik en kolumn med ett antal namn. I ett annat excelblad (bok2) har jag ett antal flikar och en en del av flikarna har ett namn som finns i min lista i bok1.
I bok1 finns ett makro som går igenom listan med namn och om namnet är lika med ett fliknamn i bok2 ska fliken tas bort.
Så långt inga problem men om makrot hittar en flik som ska tas bort gör makrot det men fortsätter sedan inte.
Lite slarvigt kan koden se ut så här

Do Until ActiveCell.FormulaR1C1 = ""
    minflik = ActiveCell.FormulaR1C1
    Windows(flikboken).Activate
    Sheets(minflik).Delete

    Windows(målboken).Activate             Hit kommer jag aldrig!!
    ActiveCell.Offset(1, 0).Select
Loop 

tacksam för lite hjälp
//omgiw