Handy One Liners

Below are the ones I had handy; does any one else have any others to add to the list?

Public Sub UnWrapText(): Selection.WrapText = False: End Sub
Public Sub removeAllLinks(): ActiveSheet.Cells.Hyperlinks.Delete: End Sub
Public Function DAdd(S As String, N As Long, D As Date) As Date: DAdd = DateAdd(S, N, D): End Function
Public Function IsFunction(ref As Range) As Boolean: IsFunction = (Left(ref.Cells.Formula, 1) = "="): End Function