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

Hi Brad,

Try

Set Destination = uswb.Worksheets("Sheet1").Range("A" & _
Rows.Count).End(xlUp)(2)


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Brad" wrote in message
...
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

That did the trick. Thanks Bob!

"Bob Phillips" wrote:

Hi Brad,

Try

Set Destination = uswb.Worksheets("Sheet1").Range("A" & _
Rows.Count).End(xlUp)(2)


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Brad" wrote in message
...
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