Dim XlAc As Excel.Application

     Dim XlKtp As Excel.Workbook

     Dim XlSyf As Excel.Worksheet

     Dim xRng As Excel.Range

burada tanımlama tüm nesneleri as object olarak değiştirip dener misiniz?

Dim XlAc As object

     Dim XlKtp As object

     Dim XlSyf As object

     Dim xRng As object 

gibi