title: Open workbook if not already open, if already, then get that reference
body: <p>Ive a scenario to do some changes in a workbook in another workbook path. But the question is I need to check whether the workbook already open or not. If not I need to get that opened instance to a workbook variable.</p>
  
  <p>Here is the code Im using for checking whether workbook open or not and then the code for opening</p>
  
  <pre><code>Function IsFileOpen(fileFullName As String)
      Dim FileNumber As Integer
      Dim errorNum As Integer
  
      On Error Resume Next
      FileNumber = FreeFile()   ' Assign a free file number.
      ' Attempt to open the file and lock it.
      Open fileFullName For Input Lock Read As #FileNumber
      Close FileNumber       ' Close the file.
      errorNum = Err         ' Assign the Error Number which occured
      On Error GoTo 0        ' Turn error checking on.
      ' Now Check and see which error occurred and based
      ' on that you can decide whether file is already
      ' open
      Select Case errorNum
          ' No error occurred so ErroNum is Zero (0)
          ' File is NOT already open by another user.
          Case 0
           IsFileOpen = False
  
          ' Error number for "Permission Denied." is 70
          ' File is already opened by another user.
          Case 70
              IsFileOpen = True
  
          ' For any other Error occurred
          Case Else
              Error errorNum
      End Select
  
  End Function
  Public Function getConsolidatedDataFile() As Workbook
      Dim p As String
      p = ActiveWorkbook.Path
      Dim cf As String
      cf = printf("{0}\ConsolidatedData.xlsx", p)
      Dim wb As Workbook
      Dim fo As Boolean
      fo = IsFileOpen(cf)
      If fo = False Then wb = Workbooks.Open(filename:=cf)
      ''I need to get the code for this place of fo is true
      getConsolidatedDataFile wb
  
  End Function
  </code></pre>
  
  <p>So if file open I need to get that workbook in to that wb variable.</p>