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.Value, "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