VBA coding to count SELECTED rows and columns

[Poorcoding]

Hi
HELP NEEDED. I'm trying to create a macro that counts selected rows and columns and display in msgbox the total number of selected columns and rows. Here is my coding, but its running an error, see below:

Sub range_reporter()
Dim r As Range
Dim s As String
Dim nLastRow As Long, nLastColumn As Long
Dim nFirstRow As Long, nFirstColumn As Long

Set r = Selection

numrow = r.Rows.Count
MsgBox ("number of rows " & numrow)

numcol = r.Columns.Count
MsgBox ("number of columns " & numcol)


End Sub

 

[VBE313]

Add this above Set r

dim numrow as long
Dim numcol As Long

Also, you can remove

Dim nLastRow As Long, nLastColumn As Long

Dim nFirstRow As Long, nFirstColumn As Long

Dim s as String

 

[Poorcoding]

Thank you this worked

Sub range_reporter()
Dim r As Range
Dim s As String
Dim nLastRow As Long, nLastColumn As Long
Dim nFirstRow As Long, nFirstColumn As Long


Set r = Selection

Dim numrow As Long

numrow = r.Rows.Count
MsgBox ("number of rows " & numrow)

Dim numcol As Long

numcol = r.Columns.Count
MsgBox ("number of columns " & numcol)

 

[Poorcoding]

Is there a way of making both msgbox appear in one?

 

[VBE313]

Sub range_reporter()

Dim r As Range

Dim numrow As Long

Dim numcol As Long

Set r = Selection

numrow = r.Rows.Count

numcol = r.Columns.Count

MsgBox ("number of rows: " & numrow & "number of columns: " & numcol)

End Sub

 

[Poorcoding]

Perfect thats worked thanks so much for your help

 

[VBE313]

Perfect thats worked thanks so much for your help

you are welcome