My If/Then isn't working

[jmpatrick]

I have this code that is supposed to look for a . in specific cells and skip some code if it does. Sadly, it always runs the code even if it finds a . in the value.

Here's my code:

Sub MarkConfirmed()
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
   
    ActiveSheet.Unprotect
   
    Worksheets("Calendar").Range("C" & ActiveCell.Row).Select
   
    If Worksheets("Calendar").Range("C" & ActiveCell.Row) = "*.*" Then GoTo SkipConfirm

    Dim c As Range
    For Each c In Selection
    If c.Value <> "" Then c.Value = c.Value & "."
    Next
   
    Worksheets("Calendar").Range("AS" & ActiveCell.Row).Select
   
    If Worksheets("Calendar").Range("AS" & ActiveCell.Row) = "*.*" Then GoTo SkipConfirm

    For Each c In Selection
    If c.Value <> "" Then c.Value = c.Value & "."
    Next
   
SkipConfirm:
   
    'Protect Calendar
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True

    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
   
End Sub

 

[Joe4]

Maybe try using the InStr function instead, i.e.

If InStr(Worksheets("Calendar").Range("C" & ActiveCell.Row),".") > 0 Then

See here for more details on the InStr function: MS Excel: How to use the INSTR Function (VBA)

 

[jmpatrick]

Works great. Thanks for the link. I'll read up on the INSTR function.

 

[Joe4]

You are welcome.
Glad I was able to help!