Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB error, runtime error 13 (type mismatch)
I don't know why the following code keeps coming back as a runtime error 13, type mismatch; I have checked the code several times and I can't find the problem - can anyone help me? Option Explicit Sub cmdclick() Dim app As Application Dim wkbk As Workbook Dim shtctrl As Worksheet Dim StarName As String Set wkbk = ThisWorkbook Set app = wkbk.Application app.ScreenUpdating = False Set wkbk = ThisWorkbook Set shtctrl = wkbk.Worksheets("Control") StarName = wkbk.Path & "\" & "STAR Week No " & _ wkbk.Names("WeekNo").RefersToRange.Value & " " & _ FORMAT(WKBK.NAMES(\"CONTROLDATE\").REFERSTORANGE.V ALUE, \"MMM DD YY\") MakeSTAR StarName MsgBox "Finished" End Sub -- hindlehey ------------------------------------------------------------------------ hindlehey's Profile: http://www.excelforum.com/member.php...o&userid=28617 View this thread: http://www.excelforum.com/showthread...hreadid=482788 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB error, runtime error 13 (type mismatch)
Hi
The line Set app = wkbk.Application is your problem. You can have Application.wkbk, but not the other way round. You also have _ when you need (space)_. I didn't check the two lines after StarName is defined. Try this: Option Explicit Sub cmdclick() Dim wkbk As Workbook Dim shtctrl As Worksheet Dim StarName As String Application.ScreenUpdating = False Set wkbk = ThisWorkbook Set shtctrl = wkbk.Worksheets("Control") StarName = wkbk.Path & "\" & "STAR Week No " & _ wkbk.Names("WeekNo").RefersToRange.Value & " " & _ FORMAT(WKBK.NAMES(\"CONTROLDATE\").REFERSTORANGE.V ALUE, \"MMM DD YY\") MakeSTAR StarName MsgBox "Finished" End Sub regards Paul hindlehey wrote: I don't know why the following code keeps coming back as a runtime error 13, type mismatch; I have checked the code several times and I can't find the problem - can anyone help me? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB error, runtime error 13 (type mismatch)
Thanks so much, this did help! -- hindlehey ------------------------------------------------------------------------ hindlehey's Profile: http://www.excelforum.com/member.php...o&userid=28617 View this thread: http://www.excelforum.com/showthread...hreadid=482788 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
xpath error? Runtime Error 13 type mismatch | Excel Discussion (Misc queries) | |||
xpath error? Runtime Error 13 type mismatch | Excel Discussion (Misc queries) | |||
Runtime Error '13': Type mismatch | Excel Programming | |||
Runtime error 13 type mismatch ? | Excel Programming | |||
Runtime error 13 type mismatch ? | Excel Programming |