Sub form_errors()
Dim s1 As String: s1 = ActiveSheet.Name
Dim rng, cell As Range
Set rng = Sheets(s1).UsedRange.SpecialCells(xlCellTypeFormulas, xlErrors)
Application.DisplayAlerts = False
Select Case rng Is Nothing
Case False
On Error Resume Next
Sheets(s1 & "_Invalid").Delete
On Error GoTo 0
Sheets.Add After:=Sheets(s1)
ActiveSheet.Name = s1 & "_Invalid"
Sheets(s1).Select
For Each cell In rng
Sheets(s1 & "_Invalid").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = cell.Address
Sheets(s1 & "_Invalid").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = Replace(cell.Formula, "=", "'")
Sheets(s1 & "_Invalid").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = cell.Value
Next cell
End Select
Application.DisplayAlerts = True
End Sub