Run Time error 13
 

Hello!
I am a novice at VBA, in fact I'm still reading how to use it but I am
unfortunately responsible for running several VBA (macro) files producing
many reports weekly and monthyl. Here is my porblem;

I am running a macro which is joining 3 Excel files, using Excel 2003, and
the Runtime Error 13 - type mismatch is the error I am getting. See pasted
code below;

Sub HAWB_Text_Converter(CUR As String)
Dim CUR2 As String, CELL As Range
CUR2 = Cells(65536, Range(CUR).Column).End(xlUp).Address
Range(CUR, CUR2).Select
Range(CUR).Activate
For Each CELL In Selection
CELL.NumberFormat = "@"
CELL.Value = CMS(CELL.Value)
Next CELL
ActiveCell.Select
End Sub

Can anyone advise how I can determine if this is a data issue, a logic issue
or other? I would really love to debug this without "bugging" my boss. He is
busy with the corporate VPs and P in town.

Thanks!!
GTU_108

Run Time error 13
 

What line is it crashing. What is the value of CUR when it crashes...
--
HTH...

Jim Thomlinson


"GTU_108" wrote:

Hello!
I am a novice at VBA, in fact I'm still reading how to use it but I am
unfortunately responsible for running several VBA (macro) files producing
many reports weekly and monthyl. Here is my porblem;

I am running a macro which is joining 3 Excel files, using Excel 2003, and
the Runtime Error 13 - type mismatch is the error I am getting. See pasted
code below;

Sub HAWB_Text_Converter(CUR As String)
Dim CUR2 As String, CELL As Range
CUR2 = Cells(65536, Range(CUR).Column).End(xlUp).Address
Range(CUR, CUR2).Select
Range(CUR).Activate
For Each CELL In Selection
CELL.NumberFormat = "@"
CELL.Value = CMS(CELL.Value)
Next CELL
ActiveCell.Select
End Sub

Can anyone advise how I can determine if this is a data issue, a logic issue
or other? I would really love to debug this without "bugging" my boss. He is
busy with the corporate VPs and P in town.

Thanks!!
GTU_108

Run Time error 13
 

And what does CMS() do?



GTU_108 wrote:

Hello!
I am a novice at VBA, in fact I'm still reading how to use it but I am
unfortunately responsible for running several VBA (macro) files producing
many reports weekly and monthyl. Here is my porblem;

I am running a macro which is joining 3 Excel files, using Excel 2003, and
the Runtime Error 13 - type mismatch is the error I am getting. See pasted
code below;

Sub HAWB_Text_Converter(CUR As String)
Dim CUR2 As String, CELL As Range
CUR2 = Cells(65536, Range(CUR).Column).End(xlUp).Address
Range(CUR, CUR2).Select
Range(CUR).Activate
For Each CELL In Selection
CELL.NumberFormat = "@"
CELL.Value = CMS(CELL.Value)
Next CELL
ActiveCell.Select
End Sub

Can anyone advise how I can determine if this is a data issue, a logic issue
or other? I would really love to debug this without "bugging" my boss. He is
busy with the corporate VPs and P in town.

Thanks!!
GTU_108

--

Dave Peterson

Run Time error 13
 

IF the error is on this line:
CELL.Value = CMS(CELL.Value)

try changing it to

CELL.Value = CMS(CELL.Text)

Make sure CUR is a string value when it is passed to HAWB_Text_Converter

--
Regards,
Tom Ogilvy

"Dave Peterson" wrote in message
...
And what does CMS() do?



GTU_108 wrote:

Hello!
I am a novice at VBA, in fact I'm still reading how to use it but I am
unfortunately responsible for running several VBA (macro) files
producing
many reports weekly and monthyl. Here is my porblem;

I am running a macro which is joining 3 Excel files, using Excel 2003,
and
the Runtime Error 13 - type mismatch is the error I am getting. See
pasted
code below;

Sub HAWB_Text_Converter(CUR As String)
Dim CUR2 As String, CELL As Range
CUR2 = Cells(65536, Range(CUR).Column).End(xlUp).Address
Range(CUR, CUR2).Select
Range(CUR).Activate
For Each CELL In Selection
CELL.NumberFormat = "@"
CELL.Value = CMS(CELL.Value)
Next CELL
ActiveCell.Select
End Sub

Can anyone advise how I can determine if this is a data issue, a logic
issue
or other? I would really love to debug this without "bugging" my boss.
He is
busy with the corporate VPs and P in town.

Thanks!!
GTU_108

--

Dave Peterson