Find word throughout range and capitalize

[Pjam]

Im looking to find the word sample throughout my spreadsheet its, scattered every where, and i need to change sample to Sample,
and idea?

the range is a1:z500

 

[Joe MAyo]

Sub find_Sample()
With Worksheets(1).Range("a1:z500")
Set c = .Find(sample, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Replace "s", "S"
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub

 

[jindon]

try

Sub test()
Dim ws As Worksheet
For Each ws In Sheets
    ws.UsedRange.Replace What:="sample", Replacement:="Sample", _
                  MatchCase:=True 
Next
End Sub

 

[pgc01]

Hi

You can also use the Replace from the worksheet

Replace: sample
with: Sample

, check the Whole word checkbox.