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!