سلام من یک پرسونال ماکرو می خواهم بنویسم و اون رو به منوی تولبار بار اکسل اضاف کنم که وقتی روی اون کلیک کردم برام سلولهای انتخابی رو از حالت عددی به text تبدیل کند و طوری تبدیل کند که سلول های عدد گوشه بالای اون مثلث هشدار سبز رنگ بده (یعنی فرمت سل متنی هست ولی شما عدد داخلش نوشتید) من این کد رو نوشتم 

Sub ConvertToTextWithWarning()
Dim selectedRange As Range
Dim cell As Range

' انتخاب سلول‌های انتخاب شده
Set selectedRange = Selection

' تبدیل محتویات سلول‌های انتخاب شده به متن
For Each cell In selectedRange
If IsNumeric(cell.Value) Then
cell.Value = CStr(cell.Value)
cell.NumberFormat = "@"

End If

Next cell
End Sub

برام سلولها رو تبدیل به متن می کنه و خاصیتش هم بصورت متن هست ولی اون مثلث سبزه رو نمیاره وباید دوبل کلیک کنم روی اون سلول تا ظاهر بشه

شاید بپرسید چرا از همون تولبار بالا بجای جنرال یا نامبر گزینه تکست رو انتخاب نمی کنی؟ بدلیل اینکه می خواهم طوری فرمت سلول به متن تبدیل بشه که گوشه بالای اون سلول علامت مثلث سبز هشدار ظاهر بشه. اگه از لیست کشویی تولبار اکسل بیام از حالت جنرال به تکست تغییر دهم زمانی این مثلث ظاهر میشه که روی اون سلول دوبل کلیک شده باشه و وقت گیر هست.

شبیه این عکس:

عکس

ممنون میشم راهنمایی فرمایید.