- #1

big man

- 254

- 1

I have been having a problem with a section of my code in the macro that I've created. The problem is that the formulae that I want to use aren't working and soe I get a "##Name" error in the cells where the formula is supposed to have worked.

Patientrange = Range(PatAgeLet & "2" & ":" & PatAgeLet & Locator).Address

For Count = 2 To 6

FormulaRange1 = Range(Infocol & Count).Offset(0, 1).Address

FormulaRange2 = Range(Infocol & Count).Offset(0, 2).Address

NewRange = Range(FormulaRange1 & ":" & FormulaRange2).Select

With Selection

.NumberFormat = "0"

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = True

End With

If Count = 2 Then

ActiveCell.Formula = "=MIN(PatientRange)"

ElseIf Count = 3 Then

ActiveCell.Formula = "=MAX(Patientrange)"

ElseIf Count = 4 Then

ActiveCell.Formula = "=MEDIAN(Patientrange)"

ElseIf Count = 5 Then

ActiveCell.Value = Rangarrsize

ElseIf Count = 6 Then

ActiveCell.Formula = "=COUNTIF(Patientrange, ""<=40"")"

End If

Next Count

As you can see by this code Patientrange is a dynamic range and so this is the range that I want to use in my formulae. However, it just isn't working at all.

Any suggestions??