Michael M
Well-known Member
- Joined
- Oct 27, 2005
- Messages
- 21,821
- Office Version
- 365
- 2019
- 2013
- 2007
- Platform
- Windows
Hi All
This Macro falls over at the Sheets("Summary").Range("A" & lrow + 1).Select line
Can someone tell me why.
Regards
Michael M
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lrow As Long
lrow = Worksheets("Summary").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Sales Consultant Worksheet").Activate
If ActiveCell.Value = "Y" Then
Sheets("Summary").Range("A" & lrow + 1).Select
End If
End Sub
This Macro falls over at the Sheets("Summary").Range("A" & lrow + 1).Select line
Can someone tell me why.
Regards
Michael M
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lrow As Long
lrow = Worksheets("Summary").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Sales Consultant Worksheet").Activate
If ActiveCell.Value = "Y" Then
Sheets("Summary").Range("A" & lrow + 1).Select
End If
End Sub