I like this one, which I use a fair bit:
Try putting this in Personal.xls, or an xla. add-in:
Sub ValuesOnly()
Application.ScreenUpdating = False
On Error Resume Next
If Application.CutCopyMode = False Then
With Selection
.Copy
.PasteSpecial xlValues
End With
With Application
.ScreenUpdating = True
End With
Else
Selection.PasteSpecial xlValues
End If
Application.CutCopyMode = False
End Sub
Sub AddControl()
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Values"
.FaceId = 1183
.OnAction = "ValuesOnly"
End With
End Sub
Jason