I want the run the code below, however in the range C6:AB83 I want to ignore blank cells. I'm guessing If cell <> "" Then run code would do the trick but I'm not sure where to insert. Could you help?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Application.Intersect(Target, Sheets("Resource view").Range("C6:AB83")) Is Nothing Then
If Target.Count > 1 Then
MsgBox "You have selected multiple cells." & vbNewLine & vbNewLine & "Please select only one cell.", , "Multiple Cells Selected"
Exit Sub
End If
Sheets("Sheet8").Range("B1").Value = Target.Row
Sheets("Sheet8").Range("B2").Value = Target.Column
End If
Application.ScreenUpdating = True
End Sub
Bookmarks