Public Sub RecalculateSelection()
' I work with a lot of really large workbooks and worksheets and one of my very favorite easy macros is this one. I generally always have to have manual calculations on and sometimes larger worksheets are still slow. This macro allows you to refresh only selected cells.

    If TypeName(Selection) = "Range" Then Selection.Calculate
End Sub