범위를 지정할 때 vba에서 필요한 개체

Question

Sub APnumbers() 
Dim Currentcell As Range 
ActiveWorkbook.Sheets(2).Activate 
Set Currentcell = ActiveSheet.Range("BA5").Activate 
End Sub 

두 번째 마지막 줄에 "필요한 개체"오류가 나타납니다. 도울 수 있니?

Answer 1

Dave와 citizenkong의 의견에서 알 수 있듯이 선택 및 활성화하지 않으면 다르게 수행 할 수 있습니다. 이 같은 일이 트릭을해야합니다 :

Sub APnumbers() 

    Dim Currentcell As Range 
    Dim ws as Worksheet: Set ws = ActiveWorkbook.Sheets(2) 

    Set Currentcell = ws.Range("BA5") 

End Sub