View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
[email protected] paul.domaskis@gmail.com is offline
external usenet poster
 
Posts: 41
Default "ByRef argument type mismtach" on string variable *sometimes*

Here is the test code with the troublesome code highlighted. The
Excel file must have a spreadsheet with tab name "Test".

Option Explicit

Public Sub Aggregate()

Dim TargetString, OtherString As String
Dim SomeCell As Range
Dim ColorIndexRed As Integer

ColorIndexRed = 3
Set SomeCell = Sheets("Test").Range("A1")
TargetString = "QuickBrownFox"

' Troublesome code
'-------------------
'Call xlCellTextMgmt(SomeCell, _
' TargetString, , , , , ColorIndexRed)

Call xlCellTextMgmt(SomeCell, _
"QuickBrownFox", , , , , ColorIndexRed)

OtherString = "QuickBrownFox"
SomeCell = OtherString

Call xlCellTextMgmt(SomeCell, _
OtherString, , , , , ColorIndexRed)

End Sub

---------- Forwarded message ----------
From:
Date: Jun 3, 3:13*pm
Subject: "ByRef argument type mismtach" on string variable *sometimes*
To: microsoft.public.excel.programming


I am using the code athttp://www.vbaexpress.com/kb/archive.php/k-743.html
to change the color of some text in an Excel 2003 spreadsheet. *I am
using the following type of invocation:

Dim TargetString, OtherString As String
TargetString = "QuickBrownFox"
Call xlCellTextMgmt( SomeCell, _
* *TargetString , , , , , ColorIndexRed )

This generates the error in the subject line. *However, this
invocation is fine:

Call xlCellTextMgmt( SomeCell, _
* *"QuickBrownFox", , , , , ColorIndexRed )

This invocation is fine, too:

OtherString = "QuickBrownFox"
SomeCell = OtherString
Call xlCellTextMgmt( SomeCell, _
* *OtherString, , , , , ColorIndexRed )

What could possibly cause the first invocation to give the subject
error?