Type Mismatch

[Dustin S]

Returns a type mismatch with the first Dim highlighted.

Option Explicit

Sub FRD()

Dim Range("C3") As String
Dim Range("F3") As Double
Dim Range("G3") As Double

ThisCur = Range("C3").Value
ThisMp = Range("F3").Value
ThisPts = Range("G3").Value


Select Case ThisCur

Case EUR, GBP, AUD, NZD, CAD, MXN, BRL, CHF, ZAR, TRY, SEK, PLN, NOK, HKD, DKK, AED

    Range("H3").Value = ThisMp + (ThisPts / 10000)

Case JPY, THB, INR, HUF

    Range("H3").Value = ThisMp + (ThisPts / 100)

Case SGD

    Range("H3").Value = ThisMp + (ThisPts / 100000)

Case CZK

    Range("H3").Value = ThisMp + (ThisPts / 1000)
    
Case KRW, TWD, PHP

    Range("H3").Value = ThisMp + ThisPts

End Select

End Sub

 

[Norie]

You can't use Range("C3") or similar for variable names.

Did you perhaps mean something like this?

Dim ThisCur As String

You might also want to wrap the currencies, eg EUR, GBP, AUD, NZD etc in quotes.

 

[Dustin S]

Thanks I knew it was something simple