VBA for moving active cell and change the colour..

[Mick Peters]

I am trying to change the colour of a cell in column A from information I have on a form. I have managed to change the colour of A1 with the below code, so that part works, but I want the Range ("A1") to pick up inflation from a text box on the form (Form1.txtRow). I have tried what I can think of EG Range ("A&txtRow") and a number of other combination but I cannot get this to change the cell of the item I want. Any help would be appreciated.

Private Sub CheckBox2_Click()
Dim xRng As Range
Set xRng = Range("A1")
If CheckBox2.Value = True Then
xRng.Interior.Color = vbBlue
Else
xRng.Interior.Color = xlNone
End If
End Sub

Thank you,
Mick.

 

[Mentor82]

Hi,
If I understand you right, try changing the following line.

Set xRng = Range("A" & Form1.txtRow.text)

Regards,
Sebastian

 

[Mick Peters]

Thank you Sebastian that worked like a charm.
Mick.

 

[Mentor82]

Hi Mick,
You're welcome! Thanks for your feedback