View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Gary''s Student Gary''s Student is offline
external usenet poster
 
Posts: 11,058
Default goto last cell with data

Sub dural()
n = Cells(Rows.Count, "A").End(xlUp).Row
Range("A2:A" & n).Select
End Sub

--
Gary''s Student - gsnu200808