Betinget formatering som del af anden makro

Hej.

Jeg er ved at lave et spørgeskema, hvor brugeren til slut trykker på en knap for at afslutte. Den virker således at er alle spørgsmål udfyldt laves et PDF print og mangler der nogle svar kommer der en input box op og brugeren vender tilbage til skemaet.

jeg kunne dog godt tænke mig at de celler hvor der ikke er indtatstet svar bliver markeret med rød og at dette fungerer som en del af makroen jf. ovenfor.

Jeg har prøvet lidt frem og tilbage, men synes ikke jeg kan få det til at virke.
Nogen gode bud?

Min makro er pt således (unden formatering):

Sub SaveAsPDF_Click()

ActiveSheet.Unprotect

    Dim svar As Single
    svar = Range("E6")
   
   
    If svar <> 1 Then
    Ufrm_finish.Show
   
    [b]  'Her skulle den betinget formatering komme ind

    Else

    Dim FileAndLocation As Variant
    Dim strPathLocation As String
    Dim strFilename As String
    Dim strPathFile As String

    strPathLocation = Worksheets("Ark1").Range("C2").Value
    strFilename = Worksheets("Ark1").Range("C3").Value
    strPathFile = strPathLocation & strFilename

    FileAndLocation = Application.GetSaveAsFilename _
    (InitialFileName:=strPathLocation & strFilename, _
    filefilter:="PDF Files (*.pdf), *.pdf", _
    Title:="Select Folder and FileName to save")

        If FileAndLocation <> "False" Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        strPathLocation & strFilename & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
        End If

    End If

ActiveSheet.Protect

End Sub