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.Value, "mmm dd yy")

MakeSTAR StarName

MsgBox "Finished"

End Sub

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.VALUE, \"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?
>

Thanks so much, this did help!