Thread: Search for value move to next column code not working
View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Dan R. Dan R. is offline
external usenet poster
  
Posts: 220
Default Search for value move to next column code not working
Replace this:
If Cells(I, 1).Value = Rng Then
Cells(I, 2).Value = Cells(I, 1).Value
End If

With this:
If Cells(I, 1).Value = Rng Then
Cells(I, 1).Cut Cells(I, 2)
End If

--
Dan

Reply With QuoteReply With Quote