Thread: defined name
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
scott scott is offline
external usenet poster
 
Posts: 577
Default defined name

How do I get the row number in the defined name "CI1Total" below?

Sub UpdateRows()
Workbooks.Open Filename:= "X1.xls"
Workbooks.Open Filename:= "X2.xls"
Windows("X1.xls").Activate
Sheets("X1-1").Select
RowCnt = CI1Total - 19 -- this causes an error
Windows("X2.xls").Activate
Sheets("X2-2").Select
InsertRows (RowCnt)
End Sub

Sub InsertRows(Rows)
For c = 1 To Rows
InsertARow (CI2Total)
Next
End Sub

Sub InsertARow(InputCI)
Range(InputCI).Offset(-2, 0).Select
Selection.Copy
Range(InputCI).Offset(-1, 0).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub