Can you stop the Trim function translating hyphenated cells into date format?

I wrote some simple code to go through a worksheet and Trim the contents of all the cells, like this:

For r = 1 To 100
For c = 1 To 10
Cells(r, c).Value = Trim(Cells(r, c).Value)
Next c
Next r


But some of the cells have numeric codes in them which contain hyphens.

The Trim function seems to have interpreted some of these hyphenated codes as dates, and it has automatically translated them into date format.
Is there a way to stop the Trim function from doing this?

Hello Iterature,

The Trim function removes both leading and trailing spaces from a string. The cell formatting determines how Excel will interpret the contents. If the cell format is "General" then Excel will attempt try determine if the string can be converted into some other format, like a number, a date, time, etc. Excel will attempt to convert any string whose first character is number and has embedded hyphens to a Date format. Leaving the leading space will prevent the conversion to a Date.

To Trim the Trailing spaces...
RTrim(string)

Sincerely,
Leith Ross

Many thanks for your reply, Leith.
I didn't know that Excel tries to automatically format 'General' type cells.

Thanks.