Trim Black Spaces inform of Number in range

[hajiali]

Hello I have a large Range("F2:SF1500") were only numbers are imputed. I need a macro that will remove/trim any blank spaces before the number in this range. I currently have

Sub Trim()
Selection.Replace " ", ""
End Sub

However, this takes a very very long time and at times crashes. Not all cells in the range will have value and not all Values in cell will have black spaces before the number. I would like to see if VBA can locate and select the Cells in range which the values have blank spaces before the Number and then run the above to reduce the run time or If there is an alternate way of doing this.

any help is greatly appreciated .

 

[Joe4]

Are you selecting the whole sheet, or just that range?

How exactly are these numbers entered?
It may be better to use Data Validation, if possible, to make sure only valid numbers are entered, instead of trying to fix them after the fact.

Also, you should never use reserved words (names of existing functions, properties, methods, etc) like "Trim" as the name of your procedures, functions, or variables.
Doing so can cause errors and unexpected results.

Not sure if this would run any better for you:

Sub MyTrim()
    Application.ScreenUpdating = False
    Range("F2:SF1500").Replace " ", ""
    Application.ScreenUpdating = True
End Sub

 

[hajiali]

Thanks Joe4 for the Quick Reply. I would just need this done for that range. The numbers are being inputted via Email and Via Userform. never manually typed in the range. also thanks for the tip. I will give that a try.

 

[Joe4]

The numbers are being inputted via Email and Via Userform.

There must be some process that takes them from the Email or UserForm and puts them into Excel.
You may be able to address the issue there.
You may also be able to add criteria to the UserForm to restrict it to only allow numeric values.

 

[hajiali]

The code for the email is on the post HERE. not sure Where in the code I can fix this issue.