Lotsa,
Try the following code which assumes that the value to be recalulated is adjacent to the left of the cell with the sought value and therefore, no sought value will be in column A. The code will cycles through entire workbook with unlimite sheets with unlimited matching values.
HTH,
Maud
Public Sub FindString()
Dim keyword As Range
'---------------------------
'CYCLE THROUGH SHEETS AND FIND FIRST INSTANCE
For I = 1 To Worksheets.Count
With Worksheets(I)
Set keyword = .Cells.Find("DL-H1")
If Not keyword Is Nothing Then 'INSTANCE FOUND
keyword.Offset(0, -1) = keyword.Offset(0, -1) * 1.5
NextKeyword = keyword.Address 'REMEMBER FIRST INSTANCE ADDRESS
Else
GoTo nextsheet
End If
'--------------------------------
'CHECK FOR SUNSEQUENT INSTANCES
Do
Set keyword = .Cells.FindNext(after:=keyword)
If NextKeyword <> keyword.Address Then 'CHECK IF REPEATING
keyword.Offset(0, -1) = keyword.Offset(0, -1) * 1.5
End If
Loop While Not keyword Is Nothing And keyword.Address <> NextKeyword 'CHECK FOR REPEAT
End With
nextsheet:
Next I
'--------------------------------
'CLEANUP
Set keyword = Nothing
End Sub
Bookmarks