Run-time error '-2147417848'(80010108)' method 'calculate' of object 'range' failed

[Tahr]

Dear All
The Macro VBA project running smoothly in MS Office 2007 Windows 7. But when I copy and run this project in MS Office 2007 Windows 8.1, the following error occur at several macros;
Run-time error '-2147417848'(80010108)' method 'calculate' of object 'range' failed
I shall be grateful if anyone can solve this problem

Thanks
Regards

Tahir
email id: tmjaved@yahoo.com

 

[mole999]

so, post your macro and identify where it errors out when you step through it

 

[Tahr]

Option Explicit

Private Sub CmbCv_Change()
Dim rngcv As Range
Set rngcv = Worksheets("Subacc").Range("SubAccListRng")
rngcv.Calculate   "This line where stop process"
Sheet4.Range("cellsubacc").Calculate
CMBCV.ListFillRange = "SubAccList"
'CMBCV.DropDown
End Sub

 

[mole999]

when you step through, and you hover over
"SubAccListRng" does that provide the expected values

 

[Tahr]

Option Explicit

Private Sub CmbCv_Change()
Dim rngcv As Range
Set rngcv = Worksheets("Subacc").Range("SubAccListRng")
rngcv.Calculate   "This line where stop process"
Sheet4.Range("cellsubacc").Calculate
CMBCV.ListFillRange = "SubAccList"
'CMBCV.DropDown
End Sub

In this macro CMBCV is a Combo box from ActiveX tool bar. This combo box use for Filter (Filter by character) of List of Account ledgers Linked from Worksheets("Subacc").Range("SubAccListRng").
When write a character the above error occur and data in every cell of all sheets start to flicker.