"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?
|