Problems with VBA-pivot

[kifin]

Hey - I'am new on this forum and my english isn't very good but i really hope someone can help me on this matter:

For each row in colums 21 I have a key - f.ex. 5107021. This key I what to choose in pivot drill down but the text marked with red crash because i can't change this part of an pivottable. But in an pivot drill down i can type 5107021 (menual)an this works. So whats the code for typing in a privot drill down??

 
    Columns("A").Select
    With Worksheets(1).Range("A:A")
    Set C = .Find(1, LookIn:=xlValues)
    If Not C Is Nothing Then
        firstaddress = C.Address
        Do
        Selection.Find(What:="1", After:=ActiveCell, LookIn:=xlValues, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False).Activate
            
  ActiveSheet.PivotTables("PivotTable1").PivotFields("Key nr").CurrentPage = _
            ActiveCell.Offset(0, 21)[/COLOR]            
            
            Set C = .FindNext(C)
            Loop While Not C Is Nothing And C.Address <> firstaddress
        End If
     End With