Jim:
Thanks much
cagreer Springfield Oregon
"Jim Cone" wrote:


Maybe this...
If Blanks = vbYes Then
myR.Select
End If

Should be...
If Blanks = vbYes Then
myR.Select
Exit Sub
End If
--
Jim Cone
Portland, Oregon USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)




"Curt"
wrote in message
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