Quote number increment with macro button

Question

Excel 2010 - I am using the following code to convert a worksheet quote to PDF and save to a specified file location.
Sub SavePDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\PDF\Quotation_" & _
ActiveSheet.Range("H8").Value & ".pdf", _
OpenAfterPublish:=False
End Sub
I would also like to have the quote number in cell H8 automatically increment every time this macro button is clicked. Can it be done.

Answer 1

Try this - I hope yo see the changes that were required so that you can expand on it in the future:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'Sam, Pete, Joe, and a blank cell in a named range "NamesList"
    'cycle values in cell range (F7:Q7,W7:AH7)
    If Target.MergeCells Then
        If Target.Cells.Count <> Range(Target.Address).Cells.Count Then Exit Sub
    Else
        If Target.Cells.Count > 1 Then Exit Sub
    End If
   If Not Intersect(Target, Range("F7:Q7,W7:AH7")) Is Nothing Then
        Application.EnableEvents = False
        If Target.Cells(1).Value = "" Then
            Target.Cells(1).Value = Range("NamesList").Cells(1).Value
        Else
            Target.Cells(1).Value = Range("NamesList").Cells(Application.Match(Target.Cells(1).Value, Range("NamesList"),
False) + 1)
        End If
        Application.EnableEvents = True
        Exit Sub
    End If
    If Not Intersect(Target, Range("B29:C29,B30:C30,B31:C31,B32:C32"))
Is Nothing Then
        Application.EnableEvents = False
        If Target.Cells(1).Value = "" Then
            Target.Cells(1).Value = Range("TaskList").Cells(1).Value
        Else
            Target.Cells(1).Value = Range("TaskList").Cells(Application.Match(Target.Cells(1).Value, Range("TaskList"),
False) + 1)
        End If
        Application.EnableEvents = True
        Exit Sub
    End If
   If Not Intersect(Target, Range("B17:C22, O17:P22, AA17:AB22")) Is Nothing Then   'specific range
        If UCase(Target.Value) = "OK" Or UCase(Target.Value) = "FIX" Then MakeCircle Target
    End If
End Sub