I am referring to http://support.microsoft.com/kb/213798
and have the following variation on the theme:
Public Sub Demo()
Dim i As Integer
Dim htable As Variant
Dim h As Range
Dim ws As Worksheet
Set ws = Workbooks("Demo").Worksheets("Blocks")
Set h = ws.Range(ws.Cells(2, 1)...