Ok, after reviewing several samples on-line, the attached theoriecally should work. I want to check to see if the workbook is open, if it, then save and close. But I keep getting a subscript out of range error message.
Public Sub FileClose(strReportDate As String)
Dim strPath As String
Dim wbkName As String
Dim wbk As Workbook
wbkName = "Intl_Index_" & strReportDate & ".xls"
strPath = DLookup("Directory", "tblDirectory", "Type = 'strPath' ")
On Error Resume Next
Set wbk = Workbooks("Intl_Index_" & strReportDate & ".xls")
If wbk Is Nothing Then