Why don't you just highlight the range where you want the 1s, type a 1 and then press Ctrl-Enter No Vba required