title: IsNumeric function returning true for an empty cell
body: <p>I run a macro that copies tables from a PDF file and saves them on Excel.
  some of the tables contain empty cells and in my analysis I need to know the number of cells that are empty.
  I have a function that iterates through each column to check if the value within that cell is numeric or not.
  the trouble is when I run this function on an empty cell it returns true. I even tried manually cheeking the cells using the Isblank() function and it returns "false". (if I try this on any cell outside the pasted range it returns "true")</p>
  
  <p>I am guessing that when I copy and paste things from PDF it somehow pastes some value for the empty cells. </p>
  
  <p>did anyone ever encounter a similar problem? if so, any ideas on how it can be solved?</p>
  
  <p>if it is any help here is the code I use to copy and paste</p>
  
  <pre><code>'Initialize Acrobat by creating App object
  Set PDFApp = CreateObject("AcroExch.App")
  
  'Set AVDoc object
  Set PDFDoc = CreateObject("AcroExch.AVDoc")
  
  'Open the PDF
  If PDFDoc.Open(PDFPath, "") = True Then
      PDFDoc.BringToFront
  
      'Maximize the document
      Call PDFDoc.Maximize(True)
  
      Set PDFPageView = PDFDoc.GetAVPageView()
  
      'Go to the desired page
      'The first page is 0
      Call PDFPageView.GoTo(DisplayPage - 1)
  
      '-------------
      'ZOOM options
      '-------------
      '0 = AVZoomNoVary
      '1 = AVZoomFitPage
      '2 = AVZoomFitWidth
      '3 = AVZoomFitHeight
      '4 = AVZoomFitVisibleWidth
      '5 = AVZoomPreferred
  
      'Set the page view of the pdf
      Call PDFPageView.ZoomTo(2, 50)
  
  End If
  
  Set PDFApp = Nothing
  Set PDFDoc = Nothing
  
  On Error Resume Next
  
  'Show the adobe application
  PDFApp.Show
  
  'Set the focus to adobe acrobat pro
  AppActivate "Adobe Acrobat Pro"
  
  'Select All Data In The PDF File's Active Page
  SendKeys ("^a"), True
  
  'Right-Click Mouse
  SendKeys ("+{F10}"), True
  
  'Copy Data As Table
  SendKeys ("c"), True
  
  'Minimize Adobe Window
  SendKeys ("%n"), True
  
  'Select Next Paste Cell
  Range("A" &amp; Range("A1").SpecialCells(xlLastCell).Row).Select
  'Cells(1, 1).Select
  'Paste Data In This Workbook's Worksheet
  ActiveSheet.Paste
  </code></pre>