Wow. That was hard to understand. Start using punctuations and commas to make yourself better understood.
I understand this as a search and replace routine for all cells containing "0". You want to replace the "0"s with "a"s, right?
Do something like this
Code:For y = 1 To NoOfRows For x = 1 To NoOfColumns If ActiveSheet.Cells(x,y)=0 Then ActiveSheet.Cells(x,y)="a" Next x Next y




Reply With Quote