Macro to change value of 1 cell to another

Hello,


I have a spreadsheet that contains colums that have a value of true or false. I want to change all the true values to the column title in cell G1. this is what I have so far:

Sub ChangeTrue()
BeginRow = 2
EndRow = 100
ChkCol = 7

For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value = True Then
Cells(RowCnt, ChkCol).Value = (G1)
End If
Next RowCnt
End Sub