S
staeri
I have the following code to loop through the cells in AZ:
Dim myRange As Range
Dim myCell As Range
With ActiveSheet
Set myRange = Range("AZ14:AZ33")
End With
For Each myCell In myRange.Cells
If myCell.Value = lstObj.Text Then
myCell.Value = ""
'Here I want to delete the values in cell J to BB!!!
End If
Next myCell
Now it deletes the values in myCell but I want to change this to delete
the values in the cells J to BB. How can this be done?
I'm very grateful for fast response.
Regards,
S
Dim myRange As Range
Dim myCell As Range
With ActiveSheet
Set myRange = Range("AZ14:AZ33")
End With
For Each myCell In myRange.Cells
If myCell.Value = lstObj.Text Then
myCell.Value = ""
'Here I want to delete the values in cell J to BB!!!
End If
Next myCell
Now it deletes the values in myCell but I want to change this to delete
the values in the cells J to BB. How can this be done?
I'm very grateful for fast response.
Regards,
S