jdgalaway
07-25-2014, 11:46 AM
For some reason I'm getting a Runtime Error 9 in my code. I can't figure out why. Any help would be appreciated.
Sub importPolicy()
Dim riskAssess As Variant
riskAssess = Application.GetOpenFilename(FileFilter:="Excel Files (*.XLSX;*.XLSM;*.XLS), *.XLSX;*.XLSM;*.XLS", Title:="Select Portfolio Risk Assessment")
If riskAssess = False Then Exit Sub
Workbooks.Open Filename:=riskAssess
Dim wbkTemp As Workbook
Set wbkTemp = Workbooks("PerPolicyTemplate.xlsm")
Dim numRows As Integer
' Set numrows = number of rows of data.
numRows = Range("B4", Range("B4").End(xlDown)).Rows.Count <------ Causing Error!
Workbooks(riskAssess).Sheets("Detailed Summary").Cells("B4").Select
' Establish "For" loop to loop "numrows" number of times.
Dim i As Integer
For i = 1 To numRows
' Insert your code here.
Application.Wait (Now + #12:00:02 AM#
Next
riskAssess.Close savechanges:=False
Dim mBox As Variant
mBox = InputBox(Prompt:="Save As:", Title:="Save As:", Default:="Save As:")
wbkTemp.SaveAs Filename:=mBox
End Sub
Sub importPolicy()
Dim riskAssess As Variant
riskAssess = Application.GetOpenFilename(FileFilter:="Excel Files (*.XLSX;*.XLSM;*.XLS), *.XLSX;*.XLSM;*.XLS", Title:="Select Portfolio Risk Assessment")
If riskAssess = False Then Exit Sub
Workbooks.Open Filename:=riskAssess
Dim wbkTemp As Workbook
Set wbkTemp = Workbooks("PerPolicyTemplate.xlsm")
Dim numRows As Integer
' Set numrows = number of rows of data.
numRows = Range("B4", Range("B4").End(xlDown)).Rows.Count <------ Causing Error!
Workbooks(riskAssess).Sheets("Detailed Summary").Cells("B4").Select
' Establish "For" loop to loop "numrows" number of times.
Dim i As Integer
For i = 1 To numRows
' Insert your code here.
Application.Wait (Now + #12:00:02 AM#
Next
riskAssess.Close savechanges:=False
Dim mBox As Variant
mBox = InputBox(Prompt:="Save As:", Title:="Save As:", Default:="Save As:")
wbkTemp.SaveAs Filename:=mBox
End Sub