why doesn't this work?

  • Thread starter Thread starter Nick
  • Start date Start date
N

Nick

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.
 
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
 
Back
Top