Case Sensitive Macro Help

[GribbiN]

Hi i currently have this macro which works perfectly as long as it is in lower case.

I would like to to work with both upper and lower case as multiple people use the work book and it is so easy to have caps lock on by mistake. Probably an easy fix for some of you guys

All help greatly appreciated

Sub PrintandClear()

    Sheets("Financial Summary").Select
    Range("B5").Select
    
    Do While ActiveCell.Value <> ""
        ActiveCell.Offset(1, 0).Select
        
    Loop
    
    ActiveCell.Value = Range("fsheetno")
    ActiveCell.Offset(0, 1).Value = Range("fdeptno")
    Select Case Range("fvat")
    Case "y"
        ActiveCell.Offset(0, 2).Value = Range("fnet")
    Case "n"
        ActiveCell.Offset(0, 2).Value = Range("fgross")
    End Select
    ActiveCell.Offset(0, 3).Value = Range("fvat")
    ActiveCell.Offset(0, 4).Value = Time
    
    Sheets("Financial").Select
    


    ActiveWindow.SelectedSheets.PrintOut Copies:=1


    clearfinancials
    
    Range("C5").Select
     
End Sub

[SamT]

Handles "yY,n,N"

Select Case LCase(Range("fvat") )

Handles y,Y,n,N,Yes,yes,no,No, Nien, Yeah mate.

Select Case Left(LCase(Trim(Range("fvat"))), 1)

[GribbiN]

Perfect, Thanks