Calling a function from within EXCEL

  • Thread starter Thread starter pcor
  • Start date Start date
P

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
 
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
 
That was a great help. Thanks
Is there a way to action that same code without using a macro?

Tom Ogilvy said:
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
Click to expand...
 
Tools=>Macro=>Macros, select FindLastCell and hit the run button.

Regards,
Tom Ogilvy

pcor said:
That was a great help. Thanks
Is there a way to action that same code without using a macro?
Click to expand...
 
Back
Top