andreashermle;582988 Wrote:
Dear Experts:
For some specific reasons I would like to enter a space in all blank
cells of the first column of my spreadsheet called sheet 1.
How is this done by using VBA?
Help is much appreciated. Thank you very much in advance. Regards,
Andreas
Code:
--------------------
Sheets("Sheet1").Columns(1).SpecialCells(xlCellTyp eBlanks).FormulaR1C1 = " "
--------------------
it is intelligent enough only to do this for the used range of the
sheet.
If this doesn't suit your purposes then specify the range:
Code:
--------------------
For Each cll In Sheets("Sheet1").Range("A1:A200").Cells
If IsEmpty(cll) Then cll.Value = " "
Next cll
--------------------
--
p45cal
*p45cal*
------------------------------------------------------------------------
p45cal's Profile: 558
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=161338
Microsoft Office Help