Here is my code (it is the beginning of something that will be longer):

Sub ByQuestion()

ByQuestionReport.InitializeDeclerations

Dim BQStart As Range
Set BQStart = ThisWorkbook.Names("BQStart").RefersToRange

If WSCri.Range("C28").Value = "Provider" Then

BQStart.Select

Do Until BQStart.Value = ""

If ActiveCell = 1 Then

' ActiveCell.Offset(-1, 0).Copy
' ActiveCell.PasteSpecial (xlPasteValues)

End If

BQStart.Offset(0, 1).Select
Set BQStart = ActiveCell

Loop

End If

End Sub

The problem is that the code loops fine until it gets to a cell with a value
in it of #DIV/0! When it hits such a cell I get a type mismatch error???


--
Thanks
Shawn