Copying a number and pasting a truncated one?

[Koontz]

Does anyone know the VBA code for how to copy a number that goes out to 18 decimals from one spreadsheet and paste that number with

For instance, I have a number 52.945849949543435656 that I would my macro to paste into a new sheet as simply, 53.

My current code looks like this:

Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste

Any help would be much appreciated!

Thanks,
Ryan

 

[Koontz]

Yep, and that worked! Thank you very much Rick!

-Ryan