VBA Calculations

Hello James

Thank you for your post.

We do not have any VBA trainers available currently to assist with your request as they are all training today.

I can refer your question to a VBA trainer for review, however you may not receive a response until sometime next week.

Amanda

Hi James

Thank you for your question

The following code will solve your problem for you

Sub ElemStats()



    Dim dblMean As Double

    Dim dblStDEv As Double

    

    

    dblMean = Application.WorksheetFunction.Average(Range("b2:e2"))

    

    MsgBox dblMean

    

    dblStDEv = Application.WorksheetFunction.StDev(Range("b2:e2"))

    

    MsgBox dblStDEv

        

End Sub