Conditional Formatting on blank cells only in Named Range

[mattyg1406]

I currently have a piece of code which applies some simple colour conditional formatting on blank cells on a set column on my workbook

:

       wsEmployeeData.Range("G" & LastEmployeeDataRow + 1 & ":G125").FormatConditions.Add Type:=xlExpression, Formula1:= _
           "=AND('" & wsEmployeeData.Name & "'!$C" & LastEmployeeDataRow + 1 & "<>"""",'" & wsEmployeeData.Name & "'!$G" & LastEmployeeDataRow + 1 & "<>"""")"
    
       wsEmployeeData.Range("G" & LastEmployeeDataRow + 1 & ":G125").FormatConditions(wsEmployeeData.Range("G" & LastEmployeeDataRow + 1 & ":G125") _
                                                      .FormatConditions.Count).SetFirstPriority
    
       With wsEmployeeData.Range("G" & LastEmployeeDataRow + 1 & ":G125").FormatConditions(1).Interior
           .PatternColorIndex = xlAutomatic
           .Color = RGB(0, 255, 255) ' Blue ( Optional )
           .TintAndShade = 0
       End With
    
       wsEmployeeData.Range("G" & LastEmployeeDataRow + 1 & ":G125").FormatConditions(1).StopIfTrue = False

I would like to make this code more dynamic, and use a named range reference for column G, as it is quite likely that additional columns may get added to the workbook in the future, and I don't want to have to keep amending my code.

I plan to use a named range for the "G9:G125" address, so the conditional formatting would need to find the first blank cell in the named range and apply formatting up to the end of the named range.

Does anyone have any suggestions to help me with this please?

 

[Joe4]

If your code already works, and the only issue is the range that it is being applied upon, just change all the Range references with your named range, i.e.
change:

Range("G" & LastEmployeeDataRow + 1 & ":G125")

with:

Range("MyRangeName")

where "MyRangeName" is whatever range name you have elected to use.

 

[mattyg1406]

Thanks Joe, but I need the formatting to be applied from the FIRST BLANK cell in the Named Range (rather than the start of the Named Range) and up to the LAST cell in the Named Range.

 

[Joe4]

Here is a block of code that should build the range you want for Conditional Formatting:

    Dim FirstBlankCell As String
    Dim LastCell As String
    Dim myCFRange As Range
    
'   Find first blank cell in a named range
    FirstBlankCell = Range("MyNamedRange").Cells.SpecialCells(xlCellTypeBlanks).Cells(1).Address
    
'   Find last cell in named range
    LastCell = Split(Range("MyNamedRange").Address, ":")(1)
    
'   Build range for conditional formatting
    Set myCFRange = Range(FirstBlankCell & ":" & LastCell)