Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Type Mismatch
Hello, I am getting a type mismatch on the following line of my code. I have
included the entire code at the bottom. I would appreciate any help. Thanks. ***TYPE MISMATCH LINE*** Set Destination = uswb.Worksheets(Sheet1).Range("A" & _ Rows.Count).End(xlUp)(2) ***** Entire code: Sub addtoqueue() Dim usrid As String Dim AWB As Workbook Dim uswb As Workbook Dim Destination As Range Set AWB = ActiveWorkbook usrid = Environ("Username") Application.ScreenUpdating = False Set uswb = Workbooks.Open(Filename:= _ "G:\Contract QuoteTemplates\2005 quote " & _ "template\print queue\" & usrid & ".xls") Set Destination = uswb.Worksheets(Sheet1).Range("A" & _ Rows.Count).End(xlUp)(2) Destination = AWB.FullName ' or AWB.Name uswb.Close SaveChanges:=True Application.ScreenUpdating = True End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
type mismatch--how to fix | Excel Discussion (Misc queries) | |||
type mismatch? | Excel Programming | |||
type mismatch here! | Excel Programming | |||
Type mismatch | Excel Programming | |||
Type Mismatch | Excel Programming |