Alright, I have hit a snag in a short macro I am trying to make. I am taking an average of a range of numbers and then putting it into a cell.
When the average is calculated it only shows up with 2 sig figs. For example 29 instead of 29.3459.
The code I am using simplified looks like this.
Range("N20").Select
For x = 20 To 10000
If Cells(x, 11) = "" Then
Exit For
End If
Next x
EastAve = Application.WorksheetFunction.Average(Range(Cells(20, 11), Cells(x - 1, 11)))
Cells([x], [11]).Select
ActiveCell.Value = EastAve
Selection.NumberFormat = "0.0000"
I'm sure this is a stupid way to do it, but having no previous knowledge this is the best I could come up with.
The result I am getting however gives me a result of 94.0000 instead of 93.6738.
Thanks for the help!
Bookmarks