Hi

I have the following macro to find the last blank cell in a column range, and enter data.

It used to work fine, but now returns the error:

'Application-defined or object-defined error'

Sub SETTest()
'
' SETTest Macro
' Macro recorded 23/03/2010 by Richard Fisher
'
ActiveSheet.Unprotect

Dim FirstBlankCell As Range
Set FirstBlankCell = Range("A1:A10").End(xlDown).Offset(1, 0)
FirstBlankCell = Range("B1")

ActiveSheet.Protect
End Sub

I've researched and found that the syntax is correct and it worked a year ago, so I'm totally flummoxed!

Any ideas?

Kind regards,

Richard Fisher
richard@granddeckdesigns.com