Code Error - will not go to sheet at the end of the code ???

[gheyman]

This code is giving me an error on:

Sheets("3 Source Selection").Range("B16").Activate

Private Sub CommandButton1_Click()

'**********************
'First Clear table

With Sheets("Selected Tasks").ListObjects("Selected_Tasks")
        
        'Check If any data exists in the table
        If Not .DataBodyRange Is Nothing Then
            'Clear Content from the table
            .DataBodyRange.ClearContents
        End If
        
    End With
    
'***********************

ListBox3.MultiSelect = fmMultiSelectMulti

'Loop through every item in the ListBox
For i = 0 To ListBox3.ListCount - 1

    'Check if the item was selected.
    If ListBox3.Selected(i) Then

        'If here, means this item has been selected.

        'Put all selected items in Column B
 With Sheets("Selected Tasks")
        If Len(.Range("A2").Value) = 0 Then
            .Range("A2").Value = ListBox3.List(i, 11)
        Else
            .Range("A" & .Rows.Count).End(xlUp).Offset(1).Value = ListBox3.List(i, 11)
        End If
    End With


    End If

Next i


UserForm3.Hide



MsgBox "Select the row that has the Cost Source that you would like to use for this part and its identified task(s)"

Sheets("3 Source Selection").Range("B16").Activate

End Sub

Thanks for the help!

 

[6StringJazzer]

What is the error number and error description? There is not much that can go wrong on that line. The most likely thing is that you do not have a sheet called "3 Source Selection". Or maybe the sheet is protected and B16 is locked.

 

[StephenCrump]

... or if Sheets("3 Source Selection") isn't the ActiveSheet, you need two steps:
- activate the sheet
- select the range

 

[gheyman]

When I took out the Range part of the line it worked. I left it as that, It really didnt need to go to a cell. What was important was opening to the sheet.

Thank you both for the help - very much appreciated. Thanks!

 

[6StringJazzer]

So @StephenCrump correctly identified the issue. You cannot Activate a Range on a sheet that is not the ActiveSheet. If you wanted to you, you could still add a line of code to activate/select a specific cell.

 

[gheyman]

Yes, and thank you for your help.