excel makro

[andreas57]

i would like to make a makro which goes through a hole document but by the following code i allways get the eror: types uncompatible

what can i do?

Sub Makro2()
'
' Makro2 Makro
' Makro am 14.11.00 von Computer aufgezeichnet
'

For a = 17 To 5000 Step 8
Rows("(a+1)a+1)&quot.Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Range("O(a)&quot.Select
Selection.Cut Destination:=Range("N(a+1)&quot
Range("P(a)&quot.Select
Selection.Cut Destination:=Range("N(a+2)&quot
Range("Q(a)&quot.Select
Selection.Cut Destination:=Range("N(a+3)&quot
Range("R(a)&quot.Select
Selection.Cut Destination:=Range("N(a+4)&quot
Range("S(a)&quot.Select
Selection.Cut Destination:=Range("N(a+5)&quot
Range("T(a)&quot.Select
Selection.Cut Destination:=Range("N(a+6)&quot
Range("V(a)&quot.Select
Selection.Cut Destination:=Range("U(a+1)&quot
Range("W(a)&quot.Select
Selection.Cut Destination:=Range("U(a+2)&quot
Range("X(a)&quot.Select
Selection.Cut Destination:=Range("U(a+3)&quot
Range("Y(a)&quot.Select
Selection.Cut Destination:=Range("U(a+4)&quot
Range("Z(a)&quot.Select
Selection.Cut Destination:=Range("U(a+5)&quot
Range("AA(a)&quot.Select
Selection.Cut Destination:=Range("U(a+6)&quot
Range("AC(a)&quot.Select
Selection.Cut Destination:=Range("AB(a+1)&quot
Range("AD(a)&quot.Select
Selection.Cut Destination:=Range("AB(a+2)&quot
Range("AE(a)&quot.Select
Selection.Cut Destination:=Range("AB(a+3)&quot
Range("AF(a)&quot.Select
Selection.Cut Destination:=Range("AB(a+4)&quot
Range("AG(a)&quot.Select
Selection.Cut Destination:=Range("AB(a+5)&quot
Range("AH(a)&quot.Select
Selection.Cut Destination:=Range("AB(a+6)&quot
Rows("(a+1)a+1)&quot.Select
Selection.Insert Shift:=xlDown
Next a
End Sub


andreas owen
aowen@swissonline.ch

 

[swilliams]

On what line do you get the error?

Simon

 

[lordhuh]

just so you know i am helping this guy out by email.
Karl Pietri
lordhuh.pota.to

 

[andreas57]

i've solved the problem thanks anyway

andreas owen
aowen@swissonline.ch