Thread: Improve code
View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.programming
Moose[_2_] Moose[_2_] is offline
external usenet poster
  
Posts: 4
Default Improve code
Simple and Fast. Hope it will help.

Public Sub RowForRs()
Dim X As Integer
For X = 1 To 6000 Step 1
If Cells(X, 2) = 1 Then Cells(X, 12) = "R"
Next X
End Sub

Reply With QuoteReply With Quote