I'm using MS Office 2010. win7
Somehow I've gotten the selected new rows to focus rather than the most recent one.
I need to use FOR Loop to find and select only the last row.
this what i have so far:
Thankful for any and all help!!! Thanks a MillionOption Explicit Private Sub CommandButton1_Click() Dim pass As String pass = "abc1234" ActiveSheet.Protect Password:=pass, UserInterFaceOnly:=True With Range("A17:A42").SpecialCells(xlVisible).Areas(1) .Offset(.Count).Resize(1).EntireRow.Hidden = False ActiveSheet.Range("b19:d42").Select End With End Sub