macro problems

[sueandco]

Hi i have a counter macro that works, what i want to do is compare the counter results with a named cell.
Here is counter that works.
Sub Next_riser()

Application.Goto Reference:="Next"
Selection.Copy
Application.Goto Reference:="NumR"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


End Sub
And this is the macro that i want to use to set off the other macro:
Sub setoffmacro()

If "NumR" = "Number_of_risers" Then
Exit Sub

If "Number_of_risers" < "NumR" Then
Application.Run "Drawingstairs.xls!Next_riser"
Range("K25").Select
Selection.Copy
Range("M25").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("M29").Select


End If
End If

End Sub
Any help welcome

 

[Damon Ostrander]

Hi sueandco,

If these named ranges are on the active worksheet then the following should work:

Sub setoffmacro()

If [NumR] = [Number_of_risers] Then
Exit Sub

If [Number_of_risers[ < [NumR] Then

In addition, unless Next_riser is in a different workbook from this code, you don't need the Run method for

Application.Run "Drawingstairs.xls!Next_riser"

but rather just

Next_riser

 

[sueandco]

Hi,
This worked
If Range("K29") = Range("H6") Then
Exit Sub

Else

Application.Run "Drawingstairs.xls!Next_riser"
Range("K25").Select
Selection.Copy
Range("M25").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("M29").Select



End If

End Sub
Thanks for your help
Sue