Function returning error

Hi all,

I have a function that works out which is the last column containing data on a worksheet, but for some reason it is alwys retuning 0. Just wondering if anybody is able to spot where I am going wrong.

Here is the function I am using -

Public Function LastColumn(Optional WorksheetName As String) As Integer
' Last Column Function
' Function finds the last column in a worksheet with data in it
     
    If WorksheetName = vbNullString Then WorksheetName = ActiveSheet.Name
    With Worksheets(WorksheetName)
        On Error Resume Next
        LastColumn = .Cells.Find("*", .Cells(1), xlFormulas, xlWhole, xlByColumns, xlPrevious).Column
        If Err <> 0 Then LastColumn = 0
    End With
     
End Function

And here are the ways I have tried retrieving data from the function, all of which return 0 -

iColumn = LastColumn(wS22.Name)
MsgBox iColumn
MsgBox LastColumn(wS22.Name)
Dim SheetToCheck As String
SheetToCheck = wS22.Name
iColumn = LastColumn(SheetToCheck)
MsgBox iColumn

When I take the Error handleing out I am getting the error 'Object Variable or With Block Variable not set'. All variables are correctly declered.

Any help is greatly appriciated.
Thanks.

If I leave the error handlers in the Function, noting happens, but LastColumn is returned as 0 (as set if 'Error <> 0'). But if I remove that that I get an error (Run-time error '91';, which is the one mentioned above) the first time I go into the meat of the function.

I do indeed have data (Far to much if you ask me!!), I have checked that 'wS22' is the currently selected sheet, and the the correct workbook is selected, but still no joy

Ah, Ok. Do you mean have I used Find at any other point in the code? If yes, then no, this is the only occurance of it.

You'll have to excuse my noobness here, but what is 'UI', and how would I override the setting in the code?