Runtime error 424 on vba if else

[exceljen86]

Hi All,

I'm getting runtime error 424 Object not found on the following vba

Sub Macro2()
'
' Macro2 Macro
'


'
    If ws.input("C3") = "Y" Then
    Sheets(Array("1.02", "1.04")).Select
    
    ElseIf ws.input("C4") = "Y" Then
    Sheets(Array("1.03")).Select
    Sheets("1.04").Activate
    End If
    ActiveWorkbook.ActiveSheet.Copy
End Sub

I know the problem will be extremely simple, but I'm well out of practice and would REALLY appreciate someone's help.

Thanks in advance!!!!!!!

 

[bobgentry]

looks like ws is undefined.
failing on first line (ws.input) right?
if ws is a sheet (current active sheet?), and C3 the cell you want the value from, try Activesheet.Range("C3").Value

 

[exceljen86]

Thank you so much!!

I just now need to figure out why it's only copying the first selected sheet

#rusty

 

[bobgentry]

probably because you're only using the copy command on the Activesheet, the current front facing sheet.

rather than use Select and then copy, just use the Copy method directly.

Make sure to use Before or After too, or else the copy will auto-generate a new workbook and paste into that, such as:

ActiveWorkbook.Worksheets(Array(1, 2)).Copy After:=Worksheets(Worksheets.Count)

worksheets.count is effectively the same as the index of hte last worksheet in the workbook, to always insert at the end.
and i'm using index numbers instead of sheet names, but you already got the array of sheet names thing down.

 

[exceljen86]

Aaah. Thanks again!