Hi i am using the excel 2013
I am trying the blank cells clear all or delete cells
We have tried to the selected range (A1:AY337) "Go To Special" select click the Blanks, but not select all blank cells.
Sub BlackCell()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Kutools for Excel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeBlanks)
If Err = 0 Then
MsgBox "You don't answer all of questions!"
End If
End Sub
I cannot find Blank Cells
Kindly provide the VBA code and Thanks for Advance
Hi,
I'm not clear on what it is you actually want to do.
That VBA code does what it is intended to do which is tell you if there are blank cells in your selection. It is not meant to show you where these cells are.
Are you wanting to have some visual indication of where blank cells are?
Regards
Phil
