Назначение переменной на основе формулы в VBA Excel

Question

Я пытаюсь сделать простой макрос, который запускает формулу и отображает ее в msgbox. Прямо сейчас у меня есть:

Sub basic_messagebox()
    Dim CAT1 As Integer
    MsgBox "The total number of possible Cat I: " & CAT1
End Sub

У меня нет значения, установленного для CAT1. В основном мне нужно запустить формулу =COUNTIF(F2:F1000,"x") и установить ее в качестве переменной CAT1. Я гулял по всему, но большинство из того, что я нахожу, это просто люди, пытающиеся использовать макросы для задания формул в ячейках, что противоположно тому, что мне нужно.

Что мне нужно добавить в мою маленькую формулу msgbox, чтобы установить вышеуказанную формулу в качестве переменной CAT1?

Answer 1

Как насчет:

Sub basic_messagebox()
    Dim CAT1 As Integer
    CAT1 = [COUNTIF(F2:F1000,"x")]
    MsgBox "The total number of possible Cat I: " & CAT1
End Sub