Thread: Syntax Error calling StDev Function

Dear Forum Members,

I am having trouble getting this code to run. Apparently, the StDev function cannot be called. Any help on the syntax will be greatly appreciated.

Sub DoCalcualtions(ByRef rForm As Long, ByRef lngBeginRange As Long, ByRef lngEndRange As Long, ByVal intLastCol As Integer)
Dim c As Integer
'
FormHeader rForm, intLastCol
'
For c = 3 To intLastCol
    Worksheets("Form").Cells(rForm + 1, c) = Worksheets("Data").Application.WorksheetFunction.StDev(Range(Cells(lngBeginRange, c), Cells(lngEndRange, c)))    
    
    
Next c
'
rForm = rForm + 7
End Sub

Chris

Dear Martin,

I have been staring at this screen for hours, making minor adjustments but could not get it right! I copied your code (the first one) into the macro and it ran perfectly! Thank you so much - this is a big break for me.

Chris

[SOLVED]