According to the option (i.e. : Option Compare Text) define in the top of your module the string comparaison of the if...then may not work as you want. In the following code I convert everything to uppercase
Nico
---------------------------------------------------------------------------
If UCase(ThisWorkbook.Name) = "READYRECKONER.XLS" The
Sheets("READY RECKONER").Visible = Tru
Sheets("READY RECKONER").Activat
Sheets("READY RECKONER").Unprotect 'no passwor

Range("CONTRACT_LENGTH")..ClearContent
Range("NO_OF_TEMPS").ClearContent
Range("DAILY_HOURS").ClearContent
Range("PAY_RATE").ClearContent
Range("ENTER_MARGIN").ClearContent
Range("ENTER_MARKUP").ClearContent
Range("ENTER_FIXED").ClearContent

Sheets("READY RECKONER").Protect ,True, True, True 'no passwor
Sheets("READY RECKONER").Visible = Fals

Sheets("ROLLING PENNY").Visible = Tru
Sheets("ROLLING PENNY").Activat
Sheets("ROLLING PENNY").unProtect 'no passwor

Range("Q12").Value = "1
Range("S12").Value = "1
Range("A1").Selec

Sheets("ROLLING PENNY").Protect , True, True, True 'no passwor
Sheets("ROLLING PENNY").Visible = Fals
End I

'Display the Ready Reckoner Input For
ReadyReckoner.Show