I am trying to write a code to produce an error message if the values of the table are non-numeric. I am not getting any error messages but the code isn't accomplishing the task. Any help? Code below:

```
Sub Refresh()
'
' Warning Code to check if all values are numeric
'-----------------------------------------------------------------------

Dim sh As Worksheet
Dim i As Integer
Dim bisnumberic As Boolean

bIsNumeric = True

For Each sh In ActiveWorkbook.Sheets
    Select Case sh.Name
        Case "AltA", "AltB", "AltC1", "AltC2"
            Dim lRow As Long
            lRow = Cells(Rows.Count, 1).End(xlUp).Row
            For i = 3 To lRow
                If Not IsNumeric(Cells(i, 1).Value) Then
                    bisnumber = False
                End If
            Next i
    End Select
Next sh

    If bIsNumeric = False Then
            'There are non-numeric values in your range
            MsgBox "There are non-numeric values in your range. Go check-            
yourself and try again."
        Else
 '-----------------------------------------------------------------------
' Code to summarize data           Sheets("AlternativeSummary").Select
        Range("B5").Select
        ActiveSheet.PivotTables("PivotTable5").PivotCache.Refresh
        MsgBox "Complete"
        'All values in your range are numeric

End If

End Sub

```