"Sub or Function not defined" vba

Question

VBA novice here

When I run my code I receive the error "Sub or Function not defined". This occurs in one of my subroutines. The first line is highlighted in yellow by the debugger.

Sub Description(Row As Integer, SheetName As String)

With Worksheet(SheetName)

.Cells(Row, 1) = ActiveCell.Offset(0, -3)   
.Cells(Row, 2) = ActiveCell.Offset(0, -2)   
.Cells(Row, 3) = ActiveCell.Offset(0, -1)

End With
End Sub

This subroutine takes in a number and a string. I want to copy specific descriptions into into another worksheet "SheetName". Here is a piece of the code prior to the subroutine call. The value of "x" is declared outside the loops scope.

string_temp = "Sheet2"
ActiveSheet.Cells(i, 5).Select
Call Description(x, string_temp)
x= x + 1

Appreciate the help!

It should beWorksheets, not worksheet.

Doug Glancy
– Doug Glancy

2015-02-11 23:31:05 +00:00
Commented Feb 11, 2015 at 23:31 — Doug Glancy
– Doug Glancy, Commented Feb 11, 2015 at 23:31

John Alexiou · Accepted Answer · 2015-02-12 00:59:07Z

1

With Worksheet(SheetName) should be With Worksheets(SheetName)

Also change Row As Integer to Row as Long, Integer is actually marginally slower in VBA as the compiler converts it to a Long for processing.

edited Feb 12, 2015 at 0:59

John Alexiou

29.4k12 gold badges83 silver badges136 bronze badges

answered Feb 11, 2015 at 23:55

Dan Donoghue

6,2662 gold badges20 silver badges36 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

"Sub or Function not defined" vba

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related