Function not working

[vba317]

I have written a function to insert text into a cell. When I call the function I am getting a runtime error 438 Object doesnt support this property or method. Any help would be appreciated.

This is the call statement
Call XLInsertCellText(iRw1, 2, "Totals")


Public Sub XLInsertCellText(iCellName As Integer, iBottomRow As Integer, istrCellName As String)

' ****************************************************
' *** THIS SUB INSERTS TEXT INTO 1 CELL********
' ****************************************************
Dim strCellName As String

'goXL.ActiveSheet.Cells(iRw1, 2).Value = "Totals"

[Yellow]goXL.ActiveSheet.Cells ((iCellName) & "," & (iBottomRow) & "." & "Value" & "=" & (strCellName))[/Yellow]

End Sub

 

[strongm]

goXL.ActiveSheet.Cells(iCellName, iBottomRow).Value = istrCellName