Macro to bulk edit object values

Macro,

Place the following code in a standard module and run the Caller routine to send the parameters to the BulkEdit Macro.

HTH,
Maud

Public Sub BulkEdit(Obj As String, multiplier As Double)
Dim Keyword As Range, NextKeyword As String
    Set Keyword = ActiveSheet.UsedRange.Find(What:=Obj)
    Keyword.Select
    NextKeyword = Keyword.Address
    Keyword.Offset(0, 1) = Keyword.Offset(0, 1) * multiplier
Do
    Set Keyword = ActiveSheet.UsedRange.FindNext(after:=Keyword)
    If NextKeyword <> Keyword.Address Then
        Keyword.Select
        Keyword.Offset(0, 1) = Keyword.Offset(0, 1) * multiplier
    End If
Loop While Not Keyword Is Nothing And Keyword.Address <> NextKeyword
End Sub

Public Sub Caller()
BulkEdit "Apple", 0.5
End Sub

@Maudibe: thank you so much for your reply. I was able to work on your code to achieve what I needed.

@MarvinP: if I have a worksheet with different objects, I only want to change the values for certain ones, so that doesn't help me.


Thanks!!