Ta bort flikar i excelbok

[omgiw]

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

[Monshi]

Bort med alla Activate och liknande. Ställer bara till med problem.

 

Jag skulle göra något i stil med..

 

Dim myRn As Range
Dim ws As Worksheet
Set myRn = Blad1.Range("a1")
Do Until myRn = ""
With Workbooks("Bok2.xls")
   	Set ws = Nothing
   	On Error Resume Next
   	Set ws = .Sheets(myRn)
   	If Not ws Is Nothing Then ws.Delete
  	On Error Goto 0
End With
Set myRn = myRn.Offset(1)


Loop