I use this often

Sub fixmynums()
Application.ScreenUpdating = False
'lr = Cells.SpecialCells(xlCellTypeLastCell).Row
On Error Resume Next
For Each c In Selection 'Range("a1:q" & lr)
If Trim(Len(c)) 0 And c.HasFormula = False Then
c.NumberFormat = "General"
c.Value = CDbl(c)
End If
Next

Application.ScreenUpdating = True
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Jan S" wrote in message
...
I am just learning how to use Macros and I have a process I do quite a bit
that I would like to have a macro created for. I use copy - paste
special/multiply often when needing to change number formats. What I
would
like to do is to create a macro that will multiply a cell or reange of
cells
by 1 (formateed as a number with no decimals or even just as general, how
can
I accomplish this?