runtime error 13 type mismatch excel 2007

Question

I am currently learning to code in excel VBA and I wrote the following code but when I run it, I get a runtime error 13 type mismatch. Any Ideas

Sub dennis()
Sheets(Sheet2).Select
Range("E1").Select

Do Until Selection.Offset(0, -4).Value = ""

Selection.Value = Selection.Offset(0, -4).Value & " " & Selection.Offset(0, -3).Value
Selection.Offset(1, 0).Select
Loop
Range("F1").Select
End Sub

This is not an answer, but generally speaking, not good to rely on `Select`, see [here](http://stackoverflow.com/questions/10714251/how-to-avoid-using-select-in-excel-vba-macros) for a good explanation. Cheers! — David Zemens, Feb 10 '15 at 16:50

score 1 · Answer 1 · answered Feb 10 '15 at 14:23

1

Your sheet is not named correctly:

Change Sheets(Sheet2).Select to Sheets("Sheet2").Select

answered Feb 10 '15 at 14:23

Kᴀτᴢ

2,146
6
29
57

Or `Sheet2.Select` to refer to the sheet by its `.CodeName` property. – David Zemens Feb 10 '15 at 16:49

score 0 · Answer 2 · answered Feb 10 '15 at 14:30

0

The error is the argument of the property Sheet. The argument must be an index.

To select the sheet number 2, you can write Sheets(2).Select or Sheets("Sheet2").select

answered Feb 10 '15 at 14:30

ele

1

runtime error 13 type mismatch excel 2007

2 Answers2