Calling a function from within EXCEL

[pcor]

Hi
How do I CALL the function below.
Where do I place the code shown below
And how do I go about calling the function
Thanks

Sub FindLastCell()
Dim LastCell As Range
With ActiveSheet
Set LastCell = .Cells(.Rows.Count, "A").End(xlUp)
If IsEmpty(LastCell) Then
'do nothing
Else
Set LastCell = LastCell.Offset(1, 0)
End If
End With
MsgBox LastCell.Row
End Sub

 

[Tom Ogilvy]

go to the vbe and with your workbook as the active project, do
Insert=>Module. Place the code there. You can create another macro to call
it

Sub CallDemo()
Call FindLastCell()
End Sub

Regards,
Tom Ogilvy

 

[pcor]

That was a great help. Thanks
Is there a way to action that same code without using a macro?

go to the vbe and with your workbook as the active project, do
Insert=>Module. Place the code there. You can create another macro to call
it

Sub CallDemo()
Call FindLastCell()
End Sub

Regards,
Tom Ogilvy

 

[Tom Ogilvy]

Tools=>Macro=>Macros, select FindLastCell and hit the run button.

Regards,
Tom Ogilvy

That was a great help. Thanks
Is there a way to action that same code without using a macro?