Thank you so much!!

"papou" <cestpasbon@çanonplus wrote in message
...
Apologies!
You might as well add this little test just in case no errors were found:
Sub VerifErreurs()
Dim Msg$
For Each cellule In Range("G1:G20")
If cellule.HasFormula Then
If IsError(cellule) Then
Msg = Msg & vbLf & cellule.Address
End If
End If
Next cellule
Select Case Msg
Case Is < ""
MsgBox Msg, vbInformation, "Errors summary"
Case Else: MsgBox "no errors found in specified range", vbInformation,
"Errors summary"
End Select
End Sub

HTH
Cordially
Pascal
"papou" <cestpasbon@çanonplus a écrit dans le message de news:
...
Hello
Please amend accordingly
Sub VerifErreurs()
Dim Msg$
For Each cellule In Range("G1:G20")
If cellule.HasFormula Then
If IsError(cellule) Then
Msg = Msg & vbLf & cellule.Address
End If
End If
Next cellule
MsgBox Msg, vbInformation, "Errors summary"
End Sub

HTH
Cordially
Pascal

"Steph" a écrit dans le message de news:
...
Hi. Is there a way to scan all of column G looking for formula errors
(ie #N/A), and return a message box with the cell address of all cells
with errors? Thanks!