Issue with xlspecialcells

[AndrewWheeler87]

Any idead why the code below isnt executin properly? I took this directly form a VBA book but it isnt working as I had hoped; I get no breaks or runtime errors:

Sub region()
On Error Resume Next
Range("a1").CurrentRegion.SpecialCells(xlCellTypeBlanks).forumular1c1 _
= "=r[-1]c"
Range("a1").CurrentRegion.Value = Range("a1").CurrentRegion.Value
End Sub

It is supposed to fill in the blank cells below the headings with the heading names.

[Norie]

You won't see any error message because the On Error Resume Next tells the code to continue if there's an error.

Try removing it and running the code again.

[AndrewWheeler87]

HAHA good point.......Okay, I removed it and it breaks at the first line -Object doesnt support object or method.

[Norie]

You've got a typo - it's FormulaR1C1 not ForumulaR1C1.