re-calculate a a chosen range of cells within a vba code

[heathball]

I use this little code here for recalculations on the cells i select. Its works very well.

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

what i need to do now is set up a large macro within which i need to re-calculate different cells

So i need to adjust the code above so that i can enter the required cells (range) i need to re-calculate ( i need to do this many times with different cells in this code i am creating)

I have tried some things that don't work and google is not offering much help.

Does anyone have any ideas

Thanks in advance