Blad selecteren

[Shery]

Wie weet een oplossing voor het volgende probleem.
Ik heb onderstaande code gekregen via het form en dit werkt helemaal naar tevredenheid
Alleen had ik graag dat ne het uitvoeren van de code de sheet Data selecteerde
Ik heb dit onderaan de code erbij gezet maar daar doet hij niets mee?

Sub zoek_SBK_off()
'
' zoek de SBK welke uit horen te staan
'

Range("H2").FormulaR1C1 = "=COUNTIF('BackBone'!R2C2:R100C2,RC[-6])=0"
Cells(1).CurrentRegion.AdvancedFilter xlFilterCopy, Range("H1:H2"), Sheets("SBK Off").Range("A1"), False
Range("H2").Clear


Sheets("Data").Select

End Sub

 

[cow18]

Op het eerste zicht niets mis mee, dat zou moeten ok zijn.
Je kan anders misschien nog preciezer zijn door bv.

Application.goto sheets("data").range("B20"),1

maar dat heel in de marge

 

[Shery]

Dank je Cow voor het mee denken
Ik zat er al een paar uur naar te staren en ik kwam er maar niet uit. Tot ik jou berichtje las en ineens zie ik dat ik de verkeerde sheet naam ingeef. deze aangepast en ja hoor werkt prima