Page tree

Welcome to FreeSoftwareServers Confluence Wiki

Skip to end of metadata
Go to start of metadata

Public lCol As Variant
Public colLetter As Variant
Public lColLet As Variant
Public lRow As Variant
Public Sub FindLast()

'Find Last Column in Number Form
 lCol = Cells(1, Columns.Count).End(xlToLeft).Column

'Find Last Column Letter
    lColLet = Split(Cells(1, lCol).Address, "$")(1)

'Find the last non-blank cell in column A(1)
    lRow = Cells(Rows.Count, 1).End(xlUp).Row
End Sub
("A1:A" & Application.ActiveSheet.UsedRange.Rows.Count)
  • No labels