文字列の範囲内の特定の文字を見つけ、書式を切り替える

Question

基本的に、特定の文字/文字を特定の範囲に置き、大文字と小文字に変更することができます（できればボタンこれが唯一のB列に見えます

Private Sub btnCapital_Click() 
Worksheets("Sheet1").Columns("b").Replace _ 
What:="d", Replacement:="D", _ 
SearchOrder:=xlByColumns, MatchCase:=True 
End Sub 

（ない指定された範囲）を、これもトグルしない：以下

は、現在私が持っている、下）を再度クリックしてください。、一度の上部をクリックします。

ご協力いただきありがとうございます。あなたがほんの少しあなたのコードを変更する必要が

Answer 1

：

Private Sub btnCapital_Click() 
Sheet1.Range("A1:ZZ9000").Columns.Replace _ 
What:="d", Replacement:="D", _ 
SearchOrder:=xlByColumns, MatchCase:=True 
End Sub