Help with Next code

[santnok]

Hi

I'am trying to do this.

Have a spreedsheet that have some columns like this the table under here

A B C D E F G H I J K 1 Name Date Finished Name Date Finished Name Date Finished 2 Roy 23.4.2018 x Mette 27.05.2018 Hanne 01.12.2018 3 Mette 27.5.2018 Oskar 30.04.2018 x Helena 18.07.2018 4 Cecilie 03.3.2018 Hans 01.02.2018 x 5 Roy 17.5.2018 6 7 <tbody> </tbody> I'am trying to get a module in Private Sub Worksheet_Change(ByVal Target As Range) End Sub to do a thing. If someone write a x to column C,G or K it will run this code I have writen (that dont work) Dim lastrowc As String Dim lastC As String Dim c As Variant Dim kollone1 As Variant: kollone1 = 3 Dim kollone2 As Variant: kollone2 = 7 Dim kollone3 As Variant: kollone3 = 11 Dim startRad As String: startRad = 3 lastrowc = Cells(Rows.Count, 1).End(xlUp).Row 'lastC = Cells(1, Columns.Count).End(xlToLeft).Column Dim col1 As Variant For c = startRad To lastrowc For col1 = kollone1 To kollone1 If Cells(c, col1) = "x" Then Cells(c, col1) = "X" Cells(c, col1).Select With Selection.Font .Name = "Calibri" .Size = 18 End With With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With End If Next col1 Dim col2 As Variant For col2 = kollone2 To kollone2 If Cells(c, col2) = "x" Then Cells(c, col2) = "X" Cells(c, col2).Select With Selection.Font .Name = "Calibri" .Size = 18 End With With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With End If Next col2 Dim col3 As Variant For col3 = kollone3 To kollone3 If Cells(c, col3) = "x" Then Cells(c, col3) = "X" Cells(c, col3).Select With Selection.Font .Name = "Calibri" .Size = 18 End With With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With End If Next col3 Next c End Sub But this do not work, I'am also sure that I can write the code so it is not so long? Hope that someone understand my problem here

<tbody>
</tbody>

 

[Fluff]

Hi Fluff

Thank you so much for that code, and it worked like charm Have learned somthing new now

You're welcome & thanks for the feedback.
For the future please see post#10