Home » Forums » Open Source Learning Center » Question and Answer

Code gives Runtime Error 13

Submitted by dragonv29 on 15 June, 2014 - 16:00

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Target.Range("A1") Then
MsgBox "Please Highlight Cell A1 Before Calculating Lexical Diversity"

End If

End Sub

How can I fix this?

‹ Help required for data analysis words to numbers help ›
»
Almir's picture

Change Target.Range("A1") to Target.Address = "$A$1"

Submitted by Almir on 15 June, 2014 - 20:06.

Hi dragonv29, try this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Target.Address = "$A$1" Then
MsgBox "Please Highlight Cell A1 Before Calculating Lexical Diversity"
End If
End Sub

»