Agh!
Sorry about that.
Change the line to
[vba]LastRow = WS.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row[/vba]
Agh!
Sorry about that.
Change the line to
[vba]LastRow = WS.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row[/vba]
Posting Permissions
Reply With Quote