Need Help Again :( Sending values to a Function

[agustinodavalos]

Sub Worksheet_Change(ByVal Target As Range)
intColumnData = HCCRange()
StrClmData = CNumToLetter(intColumnData)
End Sub

Function CNumToLetter(iCol As Integer) As String
Dim iAlpha As Integer
Dim iRemainder As Integer
iAlpha = Int(iCol / 27)
iRemainder = iCol - (iAlpha * 26)
If iAlpha > 0 Then
CNumToLetter = Chr(iAlpha + 64)
End If
If iRemainder > 0 Then
CNumToLetter = CNumToLetter & Chr(iRemainder + 64)
End If
End Function

The line in red is the issue I'm getting, not quite sure how to correctly send values needed to a function
The error I get is ByRef Argument Type Mismatch

My HCCRange() function works and returns the integer value correctly trouble I believe is with what I stated

Sorry for the trouble still new at this

 

[ImranMalek]

Hi ,
Please change your function declaration like

[COLOR=#333333]Function CNumToLetter([B]ByVal[/B] iCol As Integer)
[/COLOR]

While calling the function please make sure that you declare StrClmData.

Dim StrClmData as String
StrClmData = CNumToLetter(intColumnData)

Hope it helps!