Conditional Run of Macro

[VENKYS]

I want to run a macro x,

Once the data is copied, the macro should check if the row count in the sheet1 is less than 5000, if yes it should run macro x else it should pop a message "line exceed 5000"

how should i go about.

 

[texasalynn]

try this

Sub checkLR()
LR = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
If LR > 5000 Then Exit Sub
' your code here
End Sub

 

[texasalynn]

oops forgot you wanted a message popup

Sub checkLR()
LR = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
If LR > 5000 Then
    MsgBox "Number of rows has exceed limits"
    Exit Sub
End If
' your code here
End Sub

 

[VENKYS]

thanks it made my job easier....