HI there,
Here is my code:
Sub Open_CAReport()
Dim FANum As Variant
FANum = ActiveWorkbook.ActiveSheet.Range("B2").Value
Dim Analytics As String
Analytics = "X:\abt\ABTP\Programs\ABTP_Reports\ABTP_Analytics\@2018 Client Analytics_US"
Dim effmon As String
effmon = MonthName(month(Range("I2")), True)
Dim effnum As Variant
effnum = month(Range("I2"))
Dim AdobeApp As String
Dim AdobeFile As String
Dim StartAdobe As Long
AdobeApp = "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe"
AdobeFile = Analytics & effnum & " " & effmon & " 2018\*" & FANum & "*.pdf"
StartAdobe = Shell("" & AdobeApp & " " & AdobeFile & "", 1)
End Sub
I'm getting a "Run-time error '53': File not found" error and I think it may be because of the wildcards in the file name but I could be wrong.
Does anyone see anything wrong that would prevent the Adobe file from opening?
Thank you in advance for your help!!!!
Here is my code:
Sub Open_CAReport()
Dim FANum As Variant
FANum = ActiveWorkbook.ActiveSheet.Range("B2").Value
Dim Analytics As String
Analytics = "X:\abt\ABTP\Programs\ABTP_Reports\ABTP_Analytics\@2018 Client Analytics_US"
Dim effmon As String
effmon = MonthName(month(Range("I2")), True)
Dim effnum As Variant
effnum = month(Range("I2"))
Dim AdobeApp As String
Dim AdobeFile As String
Dim StartAdobe As Long
AdobeApp = "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe"
AdobeFile = Analytics & effnum & " " & effmon & " 2018\*" & FANum & "*.pdf"
StartAdobe = Shell("" & AdobeApp & " " & AdobeFile & "", 1)
End Sub
I'm getting a "Run-time error '53': File not found" error and I think it may be because of the wildcards in the file name but I could be wrong.
Does anyone see anything wrong that would prevent the Adobe file from opening?
Thank you in advance for your help!!!!