@אוריי
מתוקן
Public Function LastEntry(SheetAsText As String, ColumnAsText As String,optional WhatToReturn as string = "Value")
Dim NameSheetFirst As String
Dim NameCellFirst As String
NameSheetFirst = ActiveSheet.Name
NameCellFirst = ActiveCell.Address
Sheets(SheetAsText).Select
Range(ColumnAsText & "1").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
select case WhatToReturn
case "Row","ROW","row"
LastEntry = ActiveCell.Row
case "Value","value","VALUE"
LastEntry = ActiveCell.value
End Select
Sheets(NameSheetFirst).Select
Range(NameCellFirst).Select
End Function