Compile error: type mismatch

[pjhageman]

Excel 2000
I am getting a Compile error: Type Mismatch, "G26" is highlighted. How
do I clear this problem?

Public Function ValidScorecard() As Boolean
Dim sMsg As String
ValidScorecard = True
sMsg = sMsg & CheckRange("G26") <---------
sMsg = sMsg & CheckRange("AG26")
sMsg = sMsg & CheckRange("G44")
sMsg = sMsg & CheckRange("AG44")
If Len(sMsg) > 0 Then
MsgBox sMsg
ValidScorecard = False
End If
End Function

 

[Rob van Gelder]

Looks as though CheckRange wants a range, not a string.
Try:
sMsg = sMsg & CheckRange(Range("G26"))

Rob

 

[pjhageman]

Thanks, Rob, this cleared the problem.

*Looks as though CheckRange wants a range, not a string.
Try:
sMsg = sMsg & CheckRange(Range("G26"))

Rob

message