C
Curt
Have the following to check for blank cells. Would like to have message box
appear if blank cells exist. Then give user option to correct. OR Maybe best
to just return to worksheet being checked if blank cells exist?
Thanks
Worksheets("MailD").Activate
Dim Blanks As Long
Dim LastRow As Integer
Blanks = msgbox(Prompt:="Do you have blanks to complete?,If not sure
Click on Yes", Buttons:=vbYesNo)
If Blanks = vbYes Then
LastRow = Cells(Rows.Count, "A").End(xlUp).row
range("A2:F2").Resize(LastRow - 4).Select
Userform1_Main_form.Hide
Selection.specialcells(xlCellTypeBlanks).Select
End If
appear if blank cells exist. Then give user option to correct. OR Maybe best
to just return to worksheet being checked if blank cells exist?
Thanks
Worksheets("MailD").Activate
Dim Blanks As Long
Dim LastRow As Integer
Blanks = msgbox(Prompt:="Do you have blanks to complete?,If not sure
Click on Yes", Buttons:=vbYesNo)
If Blanks = vbYes Then
LastRow = Cells(Rows.Count, "A").End(xlUp).row
range("A2:F2").Resize(LastRow - 4).Select
Userform1_Main_form.Hide
Selection.specialcells(xlCellTypeBlanks).Select
End If