Maybe you're unprotecting the wrong sheet:

Replace:
Sheets("E-Figures").Select
ActiveSheet.Unprotect Password:="123"

With

Sheets("E-Figures").Unprotect Password:="123"

or even

thisworkbook.Sheets("E-Figures").Unprotect Password:="123"

======
The only time I've seen .specialcells fail is when the sheet is protected or
there are no constants in that range.

I still think it's your data--not the code.


Sean wrote:

- Show quoted text -

Definitely Dave, there are values in AI3:AI4 in sheet E-Figures

--

Dave Peterson