anyway of tidying this up? (pretty trivial sorry)

[grimshaw19]

Sub calculatestats2()
With Worksheets("Stats")
.Range("K25").Value = WorksheetFunction.Average(diftemp)
.Range("K26").Value = WorksheetFunction.StDev(diftemp)
.Range("k28").Value = WorksheetFunction.Median(diftemp)
.Range("k29").Value = WorksheetFunction.Mode(diftemp)
.Range("k30").Value = WorksheetFunction.Var(diftemp)
.Range("k31").Value = WorksheetFunction.Kurt(diftemp)
.Range("k32").Value = WorksheetFunction.Skew(diftemp)
.Range("k33").Value = WorksheetFunction.Max(diftemp)
.Range("k34").Value = WorksheetFunction.Min(diftemp)
.Range("k35").Value = WorksheetFunction.Count(diftemp)
.Range("k25:k35").Font.Name = "impact"
.Range("k25:k35").Font.Size = 14
End Sub

 

[tusharm]

Not really.

Though, from a maintenance perspective, I would go with just the first cell and then use offsets. That way when it is time to move the results to another region, you only have to update 1 line. Along the lines of

Sub calculatestats2()
    With Worksheets("Stats").Range("K25")
    .Value = WorksheetFunction.Average(diftemp)
    .Offset(1, 0).Value = WorksheetFunction.StDev(diftemp)
    .Offset(3, 0).Value = WorksheetFunction.Median(diftemp)
    .Offset(4, 0).Value = WorksheetFunction.Mode(diftemp)
    .Offset(5, 0).Value = WorksheetFunction.Var(diftemp)
    'you can do the rest :)
    .Range("k31").Value = WorksheetFunction.Kurt(diftemp)
    .Range("k32").Value = WorksheetFunction.Skew(diftemp)
    .Range("k33").Value = WorksheetFunction.Max(diftemp)
    .Range("k34").Value = WorksheetFunction.Min(diftemp)
    .Offset(10, 0).Value = WorksheetFunction.Count(diftemp)
    With .Resize(11, 1).Font
    .Name = "impact"
    .Size = 14
        End With
        End With
    End Sub

 

[grimshaw19]

cheers, that'll come in handy - done that a few times already!