why doesn't this work?
 

Can anyone say what's wrong with this code?

Dim myRange As Range

For n = 5 To 10
If Sheets("stddev").cells(n, 11).Value < "" Then
Set myRange = ActiveSheet.Range(cells(n, 10), cells(n, 11))
Sheets("stddev").cells(n - 2, 8).Value = _
Application.WorksheetFunction.StDev(myRange)
End If
Next n


This is what I have in cells J en K:
J K

C4 C10
C11 C16
C17 C23
C24 C30
C31 C38
C39 C45
C46 C52
C53 C60

So the idea is to look in cells J en K and then calculate standard
deviation of the range cells J en K are refering to( in this case
range C4:C10). The result should be placed in cell H3.

why doesn't this work?
 

For n = 5 To 10
If Sheets("stddev").cells(n, 11).Value < "" Then
Set myRange = ActiveSheet.Range(cells(n, 10).value & ":" & _
cells(n, 11).Value)
Sheets("stddev").cells(n - 2, 8).Value = _
Application.WorksheetFunction.StDev(myRange)
End If
Next n

--
Regards,
Tom Ogilvy


"Nick" wrote in message
om...
Can anyone say what's wrong with this code?

Dim myRange As Range

For n = 5 To 10
If Sheets("stddev").cells(n, 11).Value < "" Then
Set myRange = ActiveSheet.Range(cells(n, 10), cells(n, 11))
Sheets("stddev").cells(n - 2, 8).Value = _
Application.WorksheetFunction.StDev(myRange)
End If
Next n


This is what I have in cells J en K:
J K

C4 C10
C11 C16
C17 C23
C24 C30
C31 C38
C39 C45
C46 C52
C53 C60

So the idea is to look in cells J en K and then calculate standard
deviation of the range cells J en K are refering to( in this case
range C4:C10). The result should be placed in cell H3.