Hai iam creating standard template where cells having different formulas &
validation. My query is i dont want to left any cells blank. Is there any
macro to find the blank cell (within certain range) and if it find blank
cell, error message has to come stating particular cell number is blank.

Hi,

Right click the sheet tab, view code and paste this in.

Sub blanks()
Set myrange = Range("A1:A100") 'Change to suit
For Each c In myrange
If found < 1 And IsEmpty(c.Value) Then
found = 1
myAddress = c.Address
ElseIf found = 1 And IsEmpty(c.Value) Then
Count = Count + 1
End If
Next
MsgBox myAddress & " has not been populated and there are " _
& Count & " other blanks"
End Sub

Mike



"gane" wrote:

Hai iam creating standard template where cells having different formulas &
validation. My query is i dont want to left any cells blank. Is there any
macro to find the blank cell (within certain range) and if it find blank
cell, error message has to come stating particular cell number is blank.

Thanks mike
itz working fine . but if all the cells are filled i want to show separate
message that all cells are filled.

"Mike H" wrote:

Hi,

Right click the sheet tab, view code and paste this in.

Sub blanks()
Set myrange = Range("A1:A100") 'Change to suit
For Each c In myrange
If found < 1 And IsEmpty(c.Value) Then
found = 1
myAddress = c.Address
ElseIf found = 1 And IsEmpty(c.Value) Then
Count = Count + 1
End If
Next
MsgBox myAddress & " has not been populated and there are " _
& Count & " other blanks"
End Sub

Mike



"gane" wrote:

Hai iam creating standard template where cells having different formulas &
validation. My query is i dont want to left any cells blank. Is there any
macro to find the blank cell (within certain range) and if it find blank
cell, error message has to come stating particular cell number is blank.