Type mismatch error after pasting values

Hello all - first post here, but I want to thank you all for advancing my VBA work for quite a while now.

My VBA code opens approx. 250 files and extracts specific data from select rows/columns in each file based on an assessment of a value in a specific column. I've copied the file opening code and threshold criteria code below. For months, this has worked beautifully.

Please Login or Register  to view this content.

I recently wrote a separate code that now precedes the above functions to open the same files, makes a number of calculations and writes new values over the existing columns of my worksheet. This code also seems to be working well. The data formats in the resulting files are all the same as the original versions.

When I attempt to run my 'threshold flagging' code on the revised files, I receive a type mismatch error on the following line from above...

Please Login or Register  to view this content.

When I hover over the 'dresult' when attempting to debug, it shows the first correct value from the first file that was supposed to be opened. I've run both sets of code multiple times this morning...the original code on the unmodified files and the modify code separately. When i attempt to run the original 'threshold flagging' code on the modified files, the type mismatch error appears every time.

Any help you can offer would be greatly appreciated. I'm happy to paste the entire macro if seeing all of the code is informative, but I thought there may be something simple I overlooked. thanks in advance!

Thank you for the reply, Bernie. Msgbox d.Value returned the 12 decimal number referred to by the code, the rounding function is intended to read all relevant values and round them to 2 decimal places.

Your casting suggestion returned the same error as the original code (odd), but I wondered if something about the pasted data was being viewed incorrectly versus the original text reports run from our application reporting tool. Your suggestion led me to try out some other quick data conversions and VAL() worked like a charm.

dResult = Round(Val(d.Value),2)

Thank you for taking the time to reply, Bernie.