Why error?

[Peltz]

Hello, could someone help me here?

Workbooks.Open "G:\Klienkladd\Behandlingsavdelingen\1_Felles maler\Teamarbeid(Jenskladd)\Teamarbei.xls
If (Workbooks("Pasientliste".Sheet("Ark3").Cell("A7")=
Workbooks("Teamarbeid").Sheet("Ark3").Cell("25")) _
Then Range("A7:D7,F7:T7").Select
Range"F7").Actice
Selection.ClearContents
Else: Application.Run (Teamarbeid!Pas1) _
And Range("A7:D7,F7:T7").Select
Range"F7").Actice
Selection.ClearContents
End If

Does anyone know whats going on here?

 

[Andrew Poulsom]

Oh you had Cells("A7") which I hadn't noticed. It should be Range("A7").