Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro only "Works" with F-8
Here's the Macro:
Sub DeleteBlanksInColumnA() ' ' Macro1 Macro ' Macro recorded 5/17/2007 by Administrator ' Dim rngCell, rngNewCell As Range Dim varName, varCount As Variant varCount = 1 Sheets("Names by Category").Select With Range("A2", Range("A" & Rows.Count).End(xlUp)) For Each rngCell In .Cells If IsEmpty(rngCell(1, 1)) Then rngCell(1, 1).Select Selection.Delete Shift:=xlUp End If Next rngCell End With End Sub When I step through it with the F8 key, it does what I expect it to do. When I turn it loose with Run, it don't do nuffin'! Whutz goin' on here? -- Dave Temping with Staffmark in Rock Hill, SC |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
Read ".dll" files, the Macro "work flow" and the actual values of the variables when Macro is running | Excel Programming | |||
Change default in input box from "20" to "000000"? Have macro continue on to name sheet tab? | Excel Programming | |||
Macro to concatenate into "B1" B2 thru B"x" based on new data in "Col A" | Excel Discussion (Misc queries) | |||
Sending macro based e-mail with built-in "Heading" and "Text" | Excel Programming |