+ Reply to Thread
Results 1 to 2 of 2

Runtime Error 13 - type mismatch

Hybrid View

hindlehey Runtime Error 13 - type... 11-07-2005, 10:08 AM
Guest Re: Runtime Error 13 - type... 11-07-2005, 10:55 AM
  1. #1
    Registered User
    Join Date
    11-07-2005
    Location
    Canada
    Posts
    3

    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

  2. #2
    Dave Peterson
    Guest

    Re: 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.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

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1