Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Trapping blanks
Received this code want to idenify empty cells and return to sheet if
vbyes/no yes. I am missing something because it goes on and runs code instead of returning to worksheet for completion. Not sure what to add. Thanks Dim Blanks As VbMsgBoxResult Dim LastRow As Long Dim myR As Range With Worksheets("MailD") LastRow = .Cells(Rows.Count, "A").End(xlUp).Row On Error GoTo NoBlanks Set myR = .Range("A2:F2").Resize(LastRow - 4).SpecialCells(xlCellTypeBlanks) Blanks = MsgBox("Do you want to complete blanks?", vbYesNo) If Blanks = vbYes Then myR.Select End If NoBlanks: End With |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to count blanks and spaces that look like blanks | Excel Programming | |||
Sumproduct copying blanks or how to insert zero into blanks | Excel Worksheet Functions | |||
copy range of cells with blanks then paste without blanks | Excel Programming | |||
copy range of cells with blanks then paste without blanks | Excel Worksheet Functions | |||
Paste Special Skip Blanks not skipping blanks, but overwriting... | Excel Discussion (Misc queries) |