Help with simple VBA coding

I am a NOVICE with VBA and coding. I am running into an error with code for a button I am trying to program. The button should check for the selected cell within Column A (A12 and below), then take a cell value from a specified range (from the selected cell within column A to 60 rows below) and display that value in cell B6. Any help would be great!

Sub Check3sec()

Dim rownumber As Integer
rownumber = ActiveCell.Row
If ActiveCell.Value <> "" Then
Function MinValue()
Range("B6") = WorksheetFunction.Min(Range("rownumber:rownumber+60"))
End If

End Function
End Sub

I tried that, but I am getting a debug issue with "If .Column = 1 And .Row > 11 Then"

Any thoughts as to why?

Please Login or Register  to view this content.