Check cellers indhold, Gem som hvis der er indhold.

Hej
Jeg forsøger at skrive en kode som kan hjælpe mig med at sortere filer.

Den skal tjekke cellerne D164,D178,D180 og d198 for indhold, hvis en eller flere af cellerne indeholder data, skal den gemme filen.

Kode jeg har skrevet returnerer fejlen Run-time error '1004': Forkert funktion

Kode:
Sub CheckproduktHieraki()

Application.Workbooks(3).Activate

Range("d164,d178,d180,d185,d198").Select
If IsEmpty(ActiveCell.Value) Then

Call Schneider

Else

ActiveWorkbook.SaveAs Filename:="K:\PhaCWi\2018\Levtilskud\257 Schneider\Konvertering 17-18\Konverterede aftaler\Rabatter i produkthieraki\" & Range("C8").Value & " " & Range("C6").Value & ".xlsx"

End if

End sub

Alt fra ActiveWorkbook til ".xlsx" er på en linje i vbe.

Venlig hilsen Sidsel