Public NoBlank As Long
Public Skewn As Double
Public Kurtos As Double
Public Stdev As Double
Public rng As Range
Public iAreaCount As Integer


Sub Extras()



If WorksheetFunction.Count(rng) < 5 Then
NoBlank = Application.WorksheetFunction.CountBlank(rng)
Application.StatusBar = "Blanks: " & NoBlank
    
Else: Application.DisplayStatusBar = True

NoBlank = Application.WorksheetFunction.CountBlank(rng)
Kurtos = Round(Application.WorksheetFunction.Kurt(rng), 2)
Skewn = Round(Application.WorksheetFunction.Skew(rng), 2)
Stdev = Round(Application.WorksheetFunction.Stdev(rng), 2)
Application.StatusBar = "Blanks: " & NoBlank & ", Skewn: " & Skewn & ", Kurtos: " & Kurtos & ", Std: " & Stdev

End If

End Sub