I thought I'd have to include the initiating code too. Here it is (abbreviated):
Sub UpdateData()
Dim ct As String, cn As String, pn As String, dt As String, cnmatch As String, conf As String, error As String
Dim cnt As Long, iWait As Long, i As Long, pcnt As Long, endRow As Long
Dim DEM As...