View Single Post
 
Old 08-04-2018, 02:38 AM
p45cal's Avatar
p45cal p45cal is offline Windows 10 Office 2016
Expert
 
Join Date: Apr 2014
Posts: 947
p45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond repute
Default

a guess:
Code:
lngLastRow = Sheets("RISKS").Range("A65535").End(xlUp).Row
Do Until Sheets("RISKS").Range("A" & lngLastRow).Value <> 0
  lngLastRow = lngLastRow - 1
Loop
'now lngLastRow contains last non-zero value in column A
Reply With Quote