Hi Patel45.
Many thanks for your reply. The code is returning the error "Run Time Error: 13 Type Mismatch" VB is highlighting this section 
If Target = Range("C4")