NuMbErSNeVeRLie
New Member
- Joined
- Aug 7, 2018
- Messages
- 2
I am having trouble running a macro that is in another WB. This worked previously, but now doesn't seem to work... Please help!
Sub RunTestTemplate()
'Establish Variables
Dim RMPath As String
Dim TestFile As String
Dim CorpGrpNum As String
Dim Macro1 As String
Dim Macro2 As String
Dim Macro3 As String
Dim x As Integer
Dim SavePath As String
Dim FileNameLen As Long
Dim CallPath As String
Dim fso As Object
Dim Revenue As Worksheet
Dim Manual As Worksheet
Dim Experience As Worksheet
Dim Ratebook As Worksheet
Set fso = CreateObject("Scripting.FileSystemObject")
'Open and Run Rating Model
'Define Some Variables
TestFile = ActiveWindow.Caption
RMPath = Worksheets("Revenue Calculation").Range("G2").Value
CorpGrpNum = Worksheets("Revenue Calculation").Range("B14").Value
Set Revenue = Worksheets("Revenue Calculation")
Set Manual = Worksheets("2016 - 2020 Manual RAF")
Set Experience = Worksheets("2017 - 2020 Experience RAF")
Set Ratebook = Worksheets("Ratebook v3 by county")
Workbooks.Open Filename:=RMPath, ReadOnly:=False
If Revenue.Range("B6").Value = "Renewal" Then
Worksheets("BlockSummary").Visible = True
Worksheets("BlockSummary").Range("C2").Value = "On"
End If
Worksheets("RenewalInputScreen").Range("B5").Value = Revenue.Range("B14").Value
Macro1 = "!RenewalGroupInfo"
Macro2 = "!RenewalBuild"
Macro3 = "!RunPricing"
Application.Run "'" & RMPath & "'" & Macro1
Application.Run "'" & RMPath & "'" & Macro2
RMPath is the filepath... All names and filepaths have been checked and rechecked.
Thanks!
Sub RunTestTemplate()
'Establish Variables
Dim RMPath As String
Dim TestFile As String
Dim CorpGrpNum As String
Dim Macro1 As String
Dim Macro2 As String
Dim Macro3 As String
Dim x As Integer
Dim SavePath As String
Dim FileNameLen As Long
Dim CallPath As String
Dim fso As Object
Dim Revenue As Worksheet
Dim Manual As Worksheet
Dim Experience As Worksheet
Dim Ratebook As Worksheet
Set fso = CreateObject("Scripting.FileSystemObject")
'Open and Run Rating Model
'Define Some Variables
TestFile = ActiveWindow.Caption
RMPath = Worksheets("Revenue Calculation").Range("G2").Value
CorpGrpNum = Worksheets("Revenue Calculation").Range("B14").Value
Set Revenue = Worksheets("Revenue Calculation")
Set Manual = Worksheets("2016 - 2020 Manual RAF")
Set Experience = Worksheets("2017 - 2020 Experience RAF")
Set Ratebook = Worksheets("Ratebook v3 by county")
Workbooks.Open Filename:=RMPath, ReadOnly:=False
If Revenue.Range("B6").Value = "Renewal" Then
Worksheets("BlockSummary").Visible = True
Worksheets("BlockSummary").Range("C2").Value = "On"
End If
Worksheets("RenewalInputScreen").Range("B5").Value = Revenue.Range("B14").Value
Macro1 = "!RenewalGroupInfo"
Macro2 = "!RenewalBuild"
Macro3 = "!RunPricing"
Application.Run "'" & RMPath & "'" & Macro1
Application.Run "'" & RMPath & "'" & Macro2
RMPath is the filepath... All names and filepaths have been checked and rechecked.
Thanks!