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.Va lue, "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=482792

Runtime Error 13 - type mismatch
 

Are you sure it's the code?

I'd check what was in those two ranges.

Then I'd check to see if each of those names referred to a single cell.





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?

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.Va lue, "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=482792

--

Dave Peterson