Thread: Help with creating a coordinate system and highlighting a cell in it

Does this code work/help with your problem?

Sub Highlight_Coord()
    Dim anch As Range
    Dim xCoor As Long
    Dim yCoor As Long
    
    Set anch = Range("$B$100") 'use this bit of code to determine the starting point of your grid
    'This code represents point 0 on the grid. In this case, the grid starts at cell B2
    
    xCoor = -Range("A1").Value 'Enter in cell A1 the x coordinate
    yCoor = Range("A2").Value - 1 'Enter in Cell A2 the y coordinate
    
    anch.Offset(xCoor, yCoor).Interior.ColorIndex = 36
    
    
End Sub