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 |
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? |
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 |
All times are GMT +1. The time now is 03:27 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com